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ABSTRACT 


Visual  aircraft  recognition  (VACR)  is  a  critical  skill  for  U.S.  Army  Short  Range  Air 


Defense  (SHORAD)  soldiers.  It  is  the  most  reliable  means  of  identifying  aircraft,  however 
VACR  skills  are  not  easy  to  teach  or  learn,  and  once  learned  they  are  highly  degradable.  The 
numerous  training  aids  that  exist  to  help  units  train  soldiers  require  qualified  instructors  who 
are  not  always  available.  Also,  the  varying  degrees  of  proficiency  among  soldiers  make 
group  training  less  than  ideal.  In  an  attempt  to  alleviate  the  problems  in  most  VACR  training 
programs,  an  intelligent  tutor  system  has  been  developed  to  teach  VACR  in  accordance  with 
the  Wings,  Engine,  Fuselage,  Tail  (WEFT)  cognitive  model.  The  Aircraft  Recognition 
Tutor  is  a  graphics  based,  object  oriented  instructional  program  that  teaches,  reviews,  and 
tests  VACR  skills  at  a  level  appropriate  to  the  student.  The  tutor  adaptively  coaches  the 
student  from  the  novice  level,  through  the  intermediate  level,  to  the  expert  level.  The  tutor 
was  provided  to  two  U.S.  Army  Air  Defense  Battalions  for  testing  and  evaluation. 

The  six  month  implementation,  testing,  and  evaluation  process  demonstrated  that, 
using  existing  technology  in  Computer  Science  and  Artificial  Intelligence,  useful  training 
tools  could  be  developed  quickly  and  inexpensively  for  deployment  on  existing  computers 
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I.  INTRODUCTION 


A.  fflSTORICAL  PERSPECTIVE 

Fratricide.  Webster  defines  it  as  the  act  of  murdering  or  killing  one’s  own  brother  or 
sister  or  an  individual  having  a  relationship  with  him  like  that  of  a  brother  or  sister.  Ask  a 
pilot  about  fratricide,  though,  and  you  are  likely  to  get  a  definition  such  as  “being  shot  down 
by  your  own  forces”,  and  will  almost  certainly  be  told  that  it  represents  an  unacceptable  risk 
(Weidman,  1985,  p.  17).  Fratricide  was  a  fact  oflife  during  World  War  II,  but  occurred  less 
often  during  the  Korean  War,  and  was  almost  non-existent  during  tlie  Viet  Nam  conflict. 
Does  this  mean  that  we  have  learned  from  our  mistakes,  that  fratricide  is  a  tragedy  of  the  past 
that  no  longer  poses  a  threat  to  our  air  forces?  Recent  training  exercises  indicate  that  the 
threat  remains  and  may  in  fact  be  greater  today  than  any  other  time  in  history.  Today ’s  battle 
environment  is  characterised  by  a  plethora  of  high  technology  weapons  that  are  capable  of 
destroying  the  most  sophisticated  helicopters  and  jet  fighters  in  the  world.  Combine  this  with 
decentralized  authority  for  engaging  aircraft  and  the  threat  seems  overwhelming  and 
unmanageable. 

B.  THE  THREAT 

Consider  the  following  miniinalized  scenario:  A  U.S.  aircraft  is  returning  from  a  strike 
mission.  To  get  back  to  the  airbase  he  must  pass  through  an  Army  Division.  Within  this 
division  area,  20  Stinger  missile  teams  are  deployed,  in  such  a  manner  as  to  have  overlqjping 
coverage  zones.  So.  to  return  to  the  airbase,  this  aircraft  will  come  within  the  engagement 
zone  of  at  least  two  teams.  Each  of  these  teams  consists  of  two  men,  an  E-4  or  E-5  team  chief 
and  an  E-1  through  E-3  missileman.  Final  authorization  for  engaging  the  aircraft  is  made  by 
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the  team  chief  and  is  based  on  visual  identification  of  the  aircraft.  Assuming  that  an  average 
team  chief  will  correctly  identify  90%  of  the  aircraft  that  he  sees,  the  pilot  of  the  aircraft  has 
an  80%  chance  of  passing  through  the  division  area  without  being  fired  upon.  The  lethality 
of  a  Stinger  missile  is  well  documented.  But  now  consider  a  more  realistic  scenario:  the  same 
aircraft  is  passing  through  the  same  division  area,  but  this  time  must  pass  through  a  more 
likely  number  of  Stinger  teams,  as  well  as  several  Vulcan  gun  crews,  perhaps  a  Chaparral 
missile  crew,  and  countless  soldiers  with  small  arms,  all  of  which  use  visual  identification 
as  a  final  means  of  determining  whether  or  not  to  engage  an  aircraft.  The  odds  of  the  aircraft 
returning  from  the  mission  after  successfully  evading  the  enemies  air  defense  forces  are 
greatly  reduced.  The  life  of  the  pilot  hinges  upon  his  aircraft  being  correctly  identified  by 
each  of  the  short  range  air  defense  fire  units  that  he  comes  within  range  of 

C.  THE  PROBLEM 

Why  is  there  such  a  dependence  on  visual  identification  of  aircraft?  Other  methods  of 
identifiying  friendly  aircraft  are  available.  Interrogation,  Friend  or  Foe  (IFF)  systems  exist, 
but  are  notoriously  unreliable.  Vulcan  gun  crews  don’t  even  have  IFF  capability,  and  what 
about  allied  integrated  air  defense  systems?  Air  Battle  Management  techniques  such  as  safe 
corridors  work  well  for  high  altitude  air  defense  weapons  that  rely  on  integrated  radar 
systems  for  identifying  and  tracking  aircraft,  but  safe  air  corridors  are  difficult  to  identify 
from  the  ground,  and  aircraft  move  through  an  area  faster  than  current  chain  of  control 
methods  can  keep  up  with.  The  most  reliable  means  of  identifying  aircraft  is  still  visual 
aircraft  recognition  (VACR),  but  VACR  skills  are  not  easy  to  teach  or  to  learn,  and  once 
learned  these  skills  are  highly  degradable  (Pliler,  1984,  p.  14). 
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D.  GOALS  AND  OBJECTIVES 

The  Aircraft  Recognition  Tutor  was  developed  in  an  attempt  to  fill  a  gap  that  exists 
in  most  VACR  training  programs.  Because  the  tutor  is  designed  to  identify  the  soldiers’ 
current  ability  and  teach  at  a  level  appropriate  to  that  ability,  it  is  useful  for  introducing 
VACR  to  new  soldiers  as  well  as  providing  refresher  training  to  more  advanced  soldiers. 
After  implementation,  the  Aircraft  Recognition  Tutor  was  provided  to  two  U.S.  Army  Air 
Defense  Battalions  for  testing  and  evaluation.  In  the  course  of  implementing,  testing,  and 
evaluating  the  tutor  (six  months),  it  was  demonstrated  that,  using  existing  technology  in 
Computer  Science  and  Artificial  Intelligence,  useful  training  tools  could  be  developed 
quickly  and  inexpensively  for  deployment  on  existing  computers  in  the  field. 

In  the  Chapter  II,  we  examine  the  training  aids  and  methods  currently  being  used  for 
teaching  visual  aircraft  recognition.  Then,  in  Chapter  HI,  we  describe  and  evaluate  the 
WEFT  cognitive  model  in  terms  of  its  effectiveness  as  a  basis  for  training  VACR.  Chapter 
IV  consists  of  a  survey  of  the  attempts  of  others  at  developing  intelligent  tutoring  systems 
and  is  presented  along  with  a  description  of  a  basic  model  for  an  intelligent  tutor  and 
techniques  that  can  be  used  to  evaluate  the  effectiveness  of  a  tutor.  Chapter  V  is  dedicated 
to  describing  the  design  and  implementation  of  iht  Air  craft  Recognition  Tutor,  and  Chapter 
VI  offers  an  objective  evaluation  of  the  tutor  as  both  a  VACR  training  tool  and  an  intelligent 
tutoring  system.  We  conclude  with  a  summary  of  our  accomplishments,  recommendations 
for  future  improvements  and  modifications  to  the  tutor,  and  examples  of  other  knowledge 
domains  that  the  tutor  could  easily  be  adapted  to  teach. 
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U.  AIRCRAFT  RECOGNITION  TRAINING 


The  requirement  for  visual  aircraft  recognition  (VACR)  by  Short  Range  Air  Defense 

(SHORAD)  soldiers  is  emphasized  in  many  publications,  including  Q-STAG  699,  JCS 
publications,  and  Air  Defense  doctrinal  manuals  (Pliler,  1984,  p.  14).  As  of  October  1989, 
standards  require  SHORAD  soldiers  to  be  able  to  identify  visually  by  NATO  name  and 
nomenclature  50  threat  and  friendly  aircraft  with  an  accuracy  of  at  least  90  percent  after  an 
exposure  period  of  five  seconds.  The  goal  is  100  percent  accuracy  (Pliler,  1988,  p.  38).  This 
is  a  daunting  task,  and  numerous  training  aids  have  been  developed  to  assist  in  achieving  this 
level  of  proficiency.  In  addition,  guidelines  for  training  programs  have  been  suggested  in 
order  to  ensure  effective  training. 

A.  TRAINING  TECHNIQUES  AND  GUIDELINES 

1.  Wings,  Engine,  Fuselage,  Tail  (WEFT) 

The  WEFT  theory  is  currently  believed  to  be  the  best  method  for  teaching  VACR. 
In  this  theory,  all  aircraft  are  composed  of  the  same  basic  elements:  wings  to  provide  lift,  an 
engine  to  provide  motive  power,  a  fuselage  to  carry  the  payload  and  controls,  and  a  tail 
assembly  which  usually  serves  the  purpose  of  controlling  the  direction  of  flight.  These 
elements  differ  in  their  shape,  size,  number,  and  position.  It  is  these  basic  elements  that 
distinguish  one  aircraft  type  from  another.  Detailed  parts  cannot  be  used  as  the  only  aid  to 
aircraft  recognition,  mainly  because  of  the  distances  at  which  recognition  should  occur.  The 
individual  components  can  be  isolated  for  descriptions  and  studied  as  separate  recognition 
features.  It  is  the  composite  of  these  features  that  must  be  learned  in  order  to  recognize  and 
identify  an  aircraft  (FM  44-30, 1986,  p.  3.2). 
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2.  Simplicity 

Descriptive  terms  must  be  kept  simple  so  that  the  soldier’s  energy  is  spent  on 
learning  VACR,  not  obscure  specifications  (Pliler,  1984,  p.  15)  (FM  44-30, 1986,  p.  4.3). 
Learning  aircraft  recognition  is  'difficult  enough,  without  confronting  the  student  with 
hundreds  of  odd  names,  curious  designations,  incomprehensible  specifications,  and  strange 
descriptive  terms  (Wood,  1985,  p.  9). 

3.  Comparison 

Many  aircraft  have  a  similar  appearance,  and  it  may  be  difficult  for  a  soldier  to 
recognize  the  differences  between  them  unless  he  is  given  an  opportunity  to  view  them  side 
by  side  at  the  same  aspect,  heading,  and  climb  angle.  Given  this,  the  soldier  can  then  see 
directly  the  differences  that  distinguish  the  aircraft,  and  learn  how  not  to  confuse  them 
(Pliler,  1984,  p.  15)  (PlUer,  1988,  p.  39)  (FM  44-30,  1986,  p.  4.3). 

4.  Controlled  Image  Training 

Individual  components  of  aircraft  should  be  isolated  as  separate  recognition 
features  for  description  and  study.  The  composite  of  these  features  are  then  learned  in  order 
to  identify  a  particular  aircraft  (Pliler,  1984,  p.  15). 

5.  Segregation 

Soldiers  should  be  trained  according  to  their  ability.  New  soldiers  and  soldiers 
needing  detailed  instruction  should  be  taught  separately  from  more  advanced  soldiers  who 
may  only  need  review  and  testing  (Pliler,  1988,  p.  39). 

6.  Repetition 

VACR  skills  are  highly  degradable.  They  are  lost  in  a  short  time  if  reinforcement 
training  is  not  vigorously  pursued  (Pliler,  1984,  p.  15).  Therefore,  training  should  be 
scheduled  regularly  and  in  periods  of  no  more  than  two  or  three  hours  (Pliler,  1988,  p.  39). 


5 


B.  TRAINING  AIDS  AND  DEVICES 


Several  training  aids  and  devices  have  been  developed  in  order  to  help  units  train  their 
soldiers  in  visual  aircraft  recognition.  These  aids  include  posters,  charts,  card  sets,  slides, 
movies,  models,  and  correspondence  courses.  The  most  successful  of  these  aids  will  be 
discussed. 

1.  Ground  Observer  Aircraft  Recognition  (GOAR)  Kit 

The  most  widely  used  and  reliable  training  aid  for  VACR  has  been  the  GOAR  kit. 
The  current  version  of  this  :At  consists  of  528  35-mm  photographic  slides  of  48  military 
aircraft.  The  aircraft  are  separated  into  the  categories  of  helicopters,  cargo,  reconnaissance, 
fighters,  bombers,  and  CAS  (Close  Air  Support)  (FM  44-30, 1986,  p.  4.7).  Used  correctly, 
this  kit  can  be  veiy  effective  in  training  soldiers  in  aircraft  identification  skills.  However, 
this  aid  requires  an  experienced  instructor  and  different  training  methods  for  soldiers  with 
different  skill  levels.  In  addition,  the  slides  tend  to  age  and  become  damaged  to  the  point  that 
recognition  is  frequently  based  on  the  characteristics  of  the  particular  slide  (eg.  scratches  or 
blotches  on  the  slide)  rather  than  the  characteristics  of  the  aircraft.  This  results  in  a  less 
effective  tool  for  training  soldiers. 

2.  Visual  Aircraft  Recognition  Playing  Cards 

Tliis  training  aid,  used  similar  to  flash  cards,  is  an  excellent  tool  for  training 
soldiers  on  maneuvers  or  for  “hip-pocket”  training  where  access  to  more  sophisticated  aids 
or  a  power  source  is  not  available  (Pliler,  1986,  p.  15).  Again,  though,  without  a  qualified 
instructor,  it  is  not  particularly  effective. 

3.  VACR  TEC  Lessons 

In  an  effort  to  overcome  the  need  for  an  instructor,  TEC  lessons  attempt  to  allow 
soldiers  to  learn  visual  aircraft  recognition  skills  at  their  own  pace  and  on  their  own 
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schedules.  The  lessons  consist  of  a  continuous  super  8-mm  reel  film  with  audio  cassette 
sound.  The  film  is  projected  on  either  a  six  by  eight  inch  screen  for  individual  training,  or 
a  larger  movie  screen  for  classroom  presentation.  The  cassette  tape  contains  the  sound  track 
for  the  training  material,  and  both  teaches  and  tests  the  student  (FM  44-30, 1 986,  p.  4.6).  The 
problem  with  this  training  device  is  that  the  tapes  are  a  continuous  reel,  therefore  random 
selection  cannot  be  made  while  training  or  testing.  The  training  is  always  presented  in  the 
same  order. 

4.  FM  44-30 

This  manual  is  not  so  much  a  training  aid  or  device  as  it  is  a  doctrinal  guide  for 
the  conduct  of  visual  aircraft  recognition  training.  It  is  the  source  for  a  description  and 
explanation  of  WEFT  theory  and  training  guidelines  and  tips.  This  manual  contains  line 
drawings,  photographs,  descriptions,  and  specifications  of  the  aircraft  considered  to  be  most 
relevant  to  SHORAD  soldiers.  It  is  the  most  comprehensive  source  of  information 
concerning  visual  aircraft  recognition. 
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m.  THE  WEFT  COGNITIVE  MODEL 


A.  DESCRIPTION  OF  THE  WEFT  MODEL 

As  was  discussed  in  Chapter  H,  the  Wings,  Engine,  Fuselage,  Tail  (WEFT)  theory  is 
based  on  isolating  the  specific  features  that  are  common  among  all  aircraft,  identifying  these 
features,  and  using  the  composite  of  these  features  to  identify  the  specific  aircraft  being 
viewed.  This  section  will  decribe  the  features  that  are  integral  to  the  WEFT  model.  The 
information  in  this  section  is  taken  directly  from  U.S.  Army  Field  Manual  FM  44-30  (FM 
44-30,  1986,  p.  3.2-3.10). 

1.  Wings 

Features  of  wings  useful  in  aircraft  identification  include  location,  shape,  slant, 
taper,  and  wing-tip  shape. 

a.  Location 

The  location  on  the  fuselage  at  which  the  wing  is  attached  is  a  valuable  aid 
in  distinquishing  one  aircraft  type  from  another,  particularly  when  viewing  the  aircraft  from 
a  nose -on  or  tail-on  aspect.  The  usual  wing  positions  for  fixed-wing  aircraft  are  High-Wing, 
Mid-Wing,  and  Low-Wing. 

b.  Shape 

Wing  shapes  differ  and  are  also  valuable  recognition  features.  They  are 
classified  according  to  their  dihedral  (slant),  taper  (diminishing  width)  and  wing-tip  shape. 
A  wing  may  contain  any  combination  of  slant,  taper,  or  wing-tip  shape. 
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c.  Slant 

The  vertical  angle  of  the  wing  with  respect  to  a  horizontal  line  drawn 
through  the  fuselage  is  called  wing  dihedral.  For  recognition  purposes  dihedral  will  be 
referred  to  as  slant. 

d.  Taper 

Aircraft  may  have  the  leading,  trailing,  or  both  edges  of  the  wing  tapered, 
or  the  wing  may  be  untapered. 

e.  Tip  Shape 

Wing-tip  shapes  are  determined  by  the  manner  in  which  the  leading  and 
trailing  edges  of  a  wing  meet.  Wing-tip  shapes  are  classified  as  Square,  Pointed,  Rounded, 
Blunt,  or  Curved. 

2.  Engine 

Engine  types,  numbers  and  locations,  and  air  intake  shape  and  location  play  a 
large  role  in  the  identification  of  a  particular  aircraft. 

a.  Propellor  Aircrqft 

Generally,  engines  which  drive  propellers  are  located  on  or  within  the 
fuselage,  usually  the  nose  for  single-engine  aircraft,  and  within  the  wing  or  on  the  leading 
edge  of  the  wing  for  multiengine  aircraft. 

b.  Jet  Aircraft 

Generally,  single-engine  jet  aircraft  have  the  engine  mounted  inside  the 
rear  section  of  the  fuselage.  Multiengine  jet  aircraft  have  their  engines  located  along  the  sides 
of  the  fuselage  or  under  the  wings. 
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c.  Intake  Location 


Examples  of  jet  air  intake  locations  for  single  and  multiengine  aircraft 
include  in  the  wing  root,  outboard  on  the  wings,  beneath  the  wings,  in  the  nose,  in  the  sides 
of  the  fuselage,  and  beneath  the  nose. 

3.  Fuselage 

The  body  of  an  aircraft  is  made  up  of  three  separate  and  distinct  sections.  They 
are  the  nose,  mid,  and  rear  sections.  The  canopy/cabin  is  also  discussed  when  describing  a 
fuselage. 

Nose  Section 

The  front  or  forward  section  of  the  aircraft  fuselage  is  called  the  nose.  Nose 
sections  are  classified  by  their  shapes:  pointed,  blunt,  or  rounded. 

b.  Midsection 

The  center  section  of  an  aircraft  fuselage  is  known  as  the  midsection.  This 
section  normally  provides  the  space  for  crew  compartments  and  internal  stores.  Midsections 
are  classified  according  to  their  shapes:  slender,  bulging,  tubular,  or  tliick. 

c.  Rear  Section 

The  rear  of  the  fuselage  where  the  tail  assembly  is  attached  is  known  as  the 
rear  section.  Rear  sections  are  classified  by  their  shap>e:  upswept,  blunt,  or  t^red. 

d.  Cockpit,  Cabin 

The  cockpit  or  cabin  is  the  compartment  in  an  aircraft  that  accommodates 
the  pilot  and/or  other  persons.  It  is  usually  covered  by  a  transparant  canopy  or  glasscd-in 
enclosure,  and  may  be  bubble,  stepped,  or  flush. 
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4.  Tail 


Tail  recognition  features  on  aircraft  consist  of  the  tail  flat  (horizontal  piece)  and 
the  tail  fin  (vertical  piece). 

a.  Tail  Flat  Position 

The  position  of  the  stabilizer  in  relation  to  the  fin  or  the  fuselage  is  an  aid 
to  recognition.  Tlie  Tail  Flat  may  be  low,  mid,  or  high  mounted  on  either  the  tail  fin  or  the 
fuselage. 

b.  Tail  Flat  Slant 

The  vertical  angle  of  the  tail  flat,  with  respect  to  a  horizontal  line  drawn 
through  the  fuselage,  is  referred  to  as  slant,  either  positive  or  negative. 

c.  Tail  Flat  Shape 

Tail  flats  usually  consist  of  only  one  element  and  are  classified  like  wings; 
for  example,  tail  flat  shape  and  taU  flat  tip  shape. 

d.  Fin  Shape 

There  are  many  fin  shapes,  including  unequally  tapered,  equally  tapered, 
back  tapered,  swept-back,  round,  and  oval.  In  addition,  the  fin  tip  shape  can  be  accounted 
for. 

e.  Number  of  Fins 

There  are  three  combinations  of  fins  usually  seen  on  aircraft:  single, 

double,  or  triple. 

B.  EVALUATION  OF  THE  WEFT  MODEL 

The  WEFT  model  was  first  introduced  in  October  of  1983  (Pliler,  1984,  p.  16).  Since 
that  time  it  has  undergone  rigorous  evaluation  by  U.S.  Army  Air  Defense  units,  and  has  stood 
the  test  of  time.  In  personal  observation  of  VACR  training,  it  was  noted  that  those  soldiers 
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who  reliably  recognized  aircraft  did  so  based  on  the  WEFT  characteristics  of  the  aircraft.  In 
fact,  some  of  the  “experts”  could  identify  an  aircraft  based  solely  on  a  verbal  WEFT 
description  of  it,  without  a  visual  image.  Soldiers  that  had  trouble  identifying  aircraft  were 
in  one  of  two  categories:  either  they  were  new  soldiers,  and  had  not  yet  mastered  the  concepts 
of  the  WEFT  theory,  or  they  had  learned  to  identify  aircraft  based  on  some  other  less  reliable 
means  of  identification.  Some  of  the  other  methods  used  by  soldiers  to  identify  aircraft 
include  reliance  on  aircraft  heading  and  speed,  aircraft  markings,  and  ordnance  types.  Each 
of  these  is  an  unreliable  feature. 

Criticism  of  the  WEFT  method  has  arisen  however.  Jane’s  World  Aircraft  Recognition 
Handbook  describes  mnemonic  aircraft-recognition  systems  like  WEFT  as  “completely  use¬ 
less,  as  recognition  depends  on  the  aircraft’s  total  ^>pearance  and  there  is  usually  little 
enough  time  to  look  for  individual  features,  let  alone  reciting  sets  of  letters”  (Wood,  1985, 
p.  5  -  6).  However,  it  is  because  of  the  limited  time  available  to  recognize  an  aircraft  that  the 
discipline  of  the  WEFT  model  pays  off.  Rather  than  attempting  to  search  for  a  match  of  an 
overall  image  of  the  aircraft  to  all  of  those  possible,  the  WEFT  method  prunes  the  search 
space  by  categorizing  aircraft  based  on  reliable,  easily  recognizable  features.  In  addition,  not 
all  features  are  necessary  to  single  out  a  particular  aircraft  from  all  others  (indeed,  it  is  rare 
that  all  features  will  be  visible).  In  fact,  even  in  Jane’s  World  Aircraft  Recognition 
Handbook,  the  student  is  advised  to  “work  in  stages,  gradually  acquiring  knowledge  and 
storing  it.  Like  people’s  faces  and  figures,  every  aircraft  and  helicopter  has  its  own 
characteristics.  It  may  have  one  engine  and  straight  wings;  four  engines  and  swept  wings; 
a  fat  fuselage;  a  triangular  wing;  a  tail  plane  on  top  of  the  fin;  or,  in  the  case  of  a  helicopter, 
one  or  two  rotors”  (Wood,  1985,  p.  9).  Aircraft  in  this  manual  are  separated  into  chapters 
based  on  “the  main  characteristics  of  each  class  of  aircraft,  so  that  the  user  can  find  his  way 
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immediately  to  the  right  chapter  after  catching  a  fleeting  glimpse  of,  say,  a  delta  shape  in  the 
sky”  (Wood,  1985,  p.  6).  This  categorization  is  analogous  to  the  WEFT  categorization,  with 
the  exception  that  WEFT  does  not  give  a  predetermined  preference  to  one  category  over 
another.  This  allows  for  a  higher  probabitity  that  an  aircraft  will  be  correctly  identifled  given 
an  incomplete  description  or  an  obscured  image. 
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IV.  SURVEY  OF  INTELLIGENT  TUTORING  SYSTEMS 


A.  INTRODUCTION 

Intelligent  tutors  are  computer  programs  that  use  Artificial  Intelligence  (AI)  tech¬ 
niques  to  help  a  f)erson  learn.  The  most  important  part  of  developing  an  Intelligent  tutor  is 
choosing  an  tq)propriate  way  of  representing  the  knowledge  to  be  taught.  Another  major 
concern  is  how  to  model  the  student’s  current  understanding  of  a  topic  or  problem. 
Intelligent  tutors  use  inferencing  mechanisms  capable  of  reasoning  from  one  item  of 
knowledge  to  another.  Therefore,  expert  systems  are  an  integral  part  of  nearly  all  Intelligent 
Tutors  (Harmon,  1987,  p.  170). 

Intelligent  tutors  are  programs  that  lie  at  the  intersection  of  three  disciplines.  Computer 
Science  (particulary  AI),  Cognitive  Psychology,  and  Education  and  Training  (Kearsley, 
1987,  p.  4).  Because  of  the  different  goals  of  researchers  in  each  of  these  areas.  Intelligent 
Tutor  Systems  vary  greatly  in  their  implementation  methodology  and  overall  effectiveness. 
Individuals  with  interest  and  expertise  in  all  three  disciplines  are  rare.  Current  theories  of 
learning  are  inadequate  and  tend  to  cause  controversy  among  cognitive  psychologists 
(Bower  &  Hilgard,  1981,  p.  17).  So,  in  spite  of  a  well  developed  computer  science 
technology  base.  Intelligent  Tutor  Systems  do  not  exist  in  large  numbers  and  are  not  being 
used  regularly  by  schools.  Another  major  obstacle  to  the  implementation  and  deployment 
of  Intelligent  Tutor  Systems  is  the  bureaucratic  complexity  of  the  institutions  they  are 
designed  for  (Bower  &  Hilgard,  1981 ,  p.  575). 
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B.  DESIGNS 


Most  of  the  current  examples  of  Intelligent  Tutor  Systems  can  be  classified  by  one  of 
five  paradigms  (Kearsley,  1987,  p.  6).  Because  the  Aircraft  Recognition  Tutor  attempts  to 
capture  an  existing,  proven  strategy  for  teaching  visual  aircraft  recognition  skills,  we  fit  the 
tutor  to  the  appropriate  design  paradigm  rather  than  choosing  a  preferred  design  as  the 
starting  point  for  the  development  of  the  system.  The  Aircraft  Recognition  Tutor  uses  the 
Coach  paradigm,  and  because  both  the  domain  knowledge  and  the  tutorial  knowledge  are 
well  structured,  this  paradigm  provides  the  best  performance.  In  general,  however,  the  Mi¬ 
croworld  design  is  the  most  flexible  and  gives  the  most  control  to  the  student.  This  design 
lends  itself  well  to  unstructured  knowledge  domains  and  teaching  situations  where  the 
specific  information  to  be  taught  to  the  student  is  not  critical.  With  the  Microworld 
paradigm,  and  given  a  student  workbook  or  study  guide,  a  student  can  learn  about  the  topics 
that  are  of  immediate  interest  to  him.  This  increases  the  student’s  motivation  to  learn.  The 
Microworld  paradigm  is  particulary  suitable  for  tutor  systems  that  attempt  to  cover  a  broad 
range  of  subjects  in  a  single  system,  or  for  a  group  of  smaller  tutor  systems  all  under  the 
contol  of  a  single  integration  system. 

1.  Mixed  Initiative  Tutors 

Mixed  Initiative  Tutors  are  the  oldest  style  of  intelligent  tutor  systems.  In  this 
method,  the  program  engages  the  student  in  a  two-way  conversation  and  attempts  to  teach 
the  student  via  the  Socratic  style  of  guided  discovery.  In  this  teaching  style,  the  tutor  first 
attempts  to  diagnose  the  student’s  misconceptions  and  errors,  and  then  presents  instruction 
that  will  help  the  student  to  recognize  the  error  themselves  (Park,  Perez,  &  Seidel,  1987, 
p.  18).  Examples  of  this  approach  include  the  SCHOLAR  and  SOPHIE  programs. 
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The  SCHOLAR  program  was  a  frame-based  tutor  which  could  teach  students 
about  the  geography  of  South  America  (Goldstein,  1982,  p.  53).  The  tutor  was  capable  of 
either  drilling  the  student  in  a  question  and  answer  style,  or  accepting  questions  from  the 
student.  One  of  the  major  criticisms  of  SCHOLAR  was  that  it  encoded  only  a  limited  depth 
of  information  about  its  domain,  and  made  no  attempt  at  providing  the  student  with  multiple 
levels  of  detail  (Goldstein,  1982,  p.  53). 

SOPHIE  was  a  simulation  tutor  that  taught  electronic  circuit  diagnosis.  This  was, 
and  remains,  one  of  the  best  attempts  at  modeling  a  natural  language  tutoring  discourse 
(Woolf,  1988,  p.  10).  The  natural  language  parser  was  able  to  skip  over  “noise”  words  and 
looked  for  semantic  classes  rather  than  syntactic  entities  (Sleeman  &  Hendley ,  1 982,  p.  1 1 1 ). 
Unfortunately,  students  do  not  always  organize  and  talk  about  knowledge  in  a  way  that 
reflects  the  way  the  developer  of  the  tutor  anticipated.  Because  of  this,  the  tutor  must  look 
beyond  the  words  that  the  student  uses  and  determine  the  true  meaning  of  the  student's 
answers  and  queries.  Failure  at  this  results  in  the  tutor  being  unable  to  guide  the  student,  or 
properly  model  the  student’s  understanding  of  the  topic  being  taught  (Woolf,  1987,  p.  241 ). 
True  natural  language  understanding  eludes  us  even  today,  so  most  recent  efforts  attempt  to 
communicate  with  the  student  through  some  other  type  of  interface. 

2.  Diagnostic  Tutors 

Diagnostic  Tutors  try  to  identify  the  misconceptions  a  student  may  have  in 
solving  a  problem  by  using  a  catalog  of  common  problems.  The  BUGGY  tutor  was  designed 
to  teach  basic  mathematical  problem  solving  skills  (Park,  Perez,  &  Seidel,  1987,  p.  19).  This 
program  demonstrated  that  there  exists  a  striking  uniformity  in  the  errors  made  by  students 
in  a  discipline  that  is  systematic  in  nature  (Matz,  1987,  p.  47).  The  BUGGY  mtor  models 
common  mathematical  errors,  and  when  a  student  makes  a  mistake,  attempts  to  identify  the 
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mistake  by  matching  the  procedure  that  the  student  used  in  solving  the  problem  with  its 
knowledge  base  of  “buggy”  procedures.  Once  the  match  is  made,  the  tutor  can  explain  not 
only  the  student’s  error,  but  teach  in  a  way  that  will  help  the  student  understand  the  problem 
and  its  solution  better. 

Another  example  of  a  diagnostic  tutor  is  PROUST.  PROUST  is  an  automatic 
debugger  for  Pascal  programs.  It  uses  a  knowledge  base  of  programming  errors  in  order  to 
detect  and  report  bugs  in  a  student's  program.  In  order  to  do  this  however,  PROUST  must 
have  some  understanding  of  what  the  program  is  supposed  to  do.  When  PROUST  fails  to 
understand  a  program’s  goals,  its  ability  to  recognize  bugs  deteriorates.  In  fact,  the 
developers  of  PROUST  are  not  yet  sufficiently  satisfied  with  its  performance  to  make  it 
generally  available  to  their  students  (Johnson  &  Soloway,  1987.  p.  66). 

3.  Microworlds 

Microworlds  involve  developing  a  computational  tool  that  allows  a  student  to 
explore  a  problem  domain.  The  most  famous  example  of  this  paradigm  is  the  LOGO 
progranuning  enviromnent.  LOGO  was  developed  by  Seymour  Papert  of  M.I.T.  as  a  tool 
for  teaching  mathematics  and  geometry  to  children.  LOGO  combines  computational  theory 
and  artificial  intelligence  with  Piaget’s  theory  of  leamuig.  In  this  theory,  people  leani  by 
naturally  and  spontaneously  interacting  with  their  environment  (Papert.  1980,  p.  156).  With 
this,  LOGO  takes  an  opposite  approach  to  learning  than  most  Intelligent  Tutor  Systems. 
Where,  in  most  cases,  the  computer  is  being  used  to  teach  or  “program’’  the  student,  in 
LOGO,  the  student  “programs  the  computer  and,  in  doing  so,  both  acquires  a  sense  of 
mastery  over  a  piece  of  the  most  modem  and  powerful  technology  and  establishes  an  intimate 
contact  with  some  of  the  deepest  ideas  from  science,  from  mathematics,  and  from  the  art  of 
intellectual  model  buildmg”  (Papert,  1980.  p.  5).  Papert  believes  that,  using  the  microworld 
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paradigm,  students  not  only  learn  about  the  tutor  domain,  but  learn  about  the  process  of 
learning  itself.  The  lack  of  discipline  enforced  by  the  tutor  is  typical  of  programs  that  use 
the  microworld  concept;  the  student  is  left  on  his  own  to  explore  and  discover  the 
relationships  and  truths  about  the  knowledge  domain.  Inherent  in  this  paradigm,  then,  is  the 
need  for  some  type  of  supervision  and  assistance  other  than  the  tutor. 

4.  Articulate  Expert  Systems 

Articulate  Expert  Systems  are  expert  systems  that  can  explain  their  decisions. 
Most  of  these  systems  do  not  include  an  instructional  component,  and  any  expert  system  that 
includes  the  ability  to  explain  how  it  reasons  could  be  used  as  a  limited  tutor.  A  complete 
system  that  exemplifies  this  paradigm  is  GUIDON,  an  adaptation  of  the  MYCIN  expert 
system  for  medical  diagnosis.  The  adaptation  revealed  that  although  MYCIN  has  an 
explanation  facility,  the  explanations  were  “narrowly  conceived”  (Qancey,  1987,  p.  201). 
Specifically,  the  expert  system  could  not  explain  why  a  particular  rule  was  correct,  and  it 
could  not  explain  the  strategy  behind  the  design  of  its  rule  structure  (Clancey,  1987,  p.  198). 
To  develop  GUIDON,  the  expert  knowledge  not  only  had  to  be  captured,  but  how  the  expert 
uses  and  remembers  the  knowledge  also  needed  be  known.  With  this  additional  information, 
MY ClN’s  rules  could  be  made  more  explicit,  and  then  be  related  to  GUIDON ’s  teaching  of 
the  heuristics  used  by  the  expert  system. 

5.  Coaches 

Coaches  observe  the  student*  s  performance  in  some  problem  solving  activity  and 
provide  advice  or  guidance  that  will  help  the  student  perform  better.  WUMPUS  is  a  maze 
exploration  game  that  exercises  basic  skills  in  logic  and  probability.  Several  tutors 
(WUSOR-I,  Wumpus  Advisor)  have  been  developed  for  the  WUMPUS  game  (Goldstein, 
1982,  p.  54)  (Kearsley,  1987,  p  .5).  Each  of  these  use  the  coach  paradigm.  WUSOR-1  uses 
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a  genetic  graph  to  model  the  students  performance  in  the  game.  The  student  progresses 
through  the  graph  as  he  proceeds  through  the  maze.  Based  on  the  student’s  path  and  current 
location  in  the  genetic  graph,  a  specific  tutoring  topic  for  instructing  the  student  is  chosen, 
and  with  this,  a  means  of  explaining  the  topic  is  chosen  based  on  the  predecessors  to  the 
student's  position  in  the  graph  (Goldstein,  1982,  p.  64).  In  this  way,  the  tutor  can  provide 
variations  on  explanations  based  on  its  perceived  judgement  of  the  student’s  needs.  Thus, 
a  coach  tutor  attempts  to  know  (1)  when  to  interrupt  the  student’s  problem  solving  activity, 
and  (2)  what  to  say  once  it  has  been  interrupted  (Burton  &  Brown,  1982,  p.  80). 
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Figure  4.1  Architecture  of  an  Intelligent  Tutor  System  (Hannon,  1987,  p.  171) 


C.  COMPONENTS 

A  typical  model  for  an  Intelligent  Tutoring  System,  shown  in  Figure  4. 1 ,  includes  four 
components,  each  of  which  can  be  thought  of  as  an  expert  system  in  itself  (Harmon,  1987, 
p.  171). 

1.  The  Domain  Knowledge  System 

The  Domain  Knowledge  System  is  the  knowledge  base  for  all  of  the  expertise  and 
information  about  the  subject  matter  to  be  taught.  Techniques  for  representing  the 
knowledge  vary  greatly,  and  choosing  the  appropriate  representation  method  is  crucial  to  the 
effectiveness  of  the  tutor, 

2.  The  T utorial  Knowledge  System 

The  Tutorial  Knowledge  System  contains  the  theory  of  the  teaching  method  that 
is  used.  Traditionally,  computer  based  instruction  relied  on  the  concepts  of  B.  F.  Skinner 
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and  other  behavioral  psychologists  who  developed  the  theory  cf  programmed  instruction 
(Harmon,  1987,  p.  165).  Skinner  proposed  a  set  of  qualities  that  could  be  found  in  any  good 
programmed  instruction:  (1)  A  good  tutor  begins  where  the  student  is,  and  does  not  insist 
on  moving  beyond  what  the  student  can  comprehend,  (2)  A  good  tutor  moves  at  a  rate  that 
is  consistent  with  the  ability  of  a  student  to  learn,  (3)  A  good  tutor  does  not  permit  false 
answers  to  remain  uncorrected,  and  (4)  A  good  tutor  does  not  lecture;  instead,  by  his  hints 
and  questioning  he  helps  the  student  to  find  and  state  answers  for  himself  (Bower  &  HUgard, 
1981,  p.  566).  According  to  Skinner's  model  of  a  teaching  machine,  a  tutor  system  first 
diagnoses  a  student  to  determine  the  skills  and  knowledge  of  the  student,  then  presents  the 
instruction  in  a  carefully  programmed  way  so  that  each  step  can  be  mastered  by  the  student 
and  leads  him  to  the  next  step,  providing  immediate  feedback  on  how  well  the  student  has 
mastered  the  material.  A  student  that  fails  to  respond  adequately  is  provided  corrective 
feedback  or  the  program  branches  to  another  style  of  instruction.  At  the  end  of  each  step  the 
program  tests  the  student  on  his  overall  mastery  of  the  material,  and  maintains  a  complete 
record  of  the  student’s  performance  for  the  entirety  of  the  material  covered.  A  system  such 
as  this  thereby  provides  all  of  the  functions  of  assessing,  teaching,  and  evaluating  a  student 
in  an  objective,  standardized  manner  (lano,  1987,  p.  266). 

3.  The  Student  Model 

TTie  Student  Model  is  a  database  that  is  created  during  the  operation  of  the 
program  tliat  reflects  what  the  student  knows  and  does  not  know  about  the  subject  matter. 
Two  main  approaches  are  common  in  modeling  the  student’s  knowledge:  (1)  the  tutor  can 
keep  track  of  what  the  student  has  not  yet  shown  a  knowledge  of,  or  (2)  the  tutor  can  track 
what  the  student  has  demonstrated  a  lack  of  knowledge  of.  In  an  attempt  to  build  a  more 
sophisticated  Student  Model  that  could  more  accurately  reflect  the  state  of  the  student’s 
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understanding,  some  tutor  systems  combine  both  of  these  approaches  within  the  Student 
Model. 

4.  The  Integration  System 

The  heart  of  the  system,  though,  is  the  Integration  System,  which  uses  heuristic 
rules  to  combine  the  three  other  systems  into  an  interface  that  is  presented  to  the  user,  and 
controls  the  flow  of  the  program,  which  is  usually  non-deterministic.  A  wide  array  of 
different  techniques  have  been  used  to  present  the  information  to  the  student,  including 
attempts  at  natural  language  interfaces  and  graphical  interfaces.  The  control  of  the  program 
has  also  varied  from  strict  programmed  control  by  the  tutor  to  an  exploratory  approach  where 
the  student  has  complete  control  over  the  flow  of  the  instruction. 
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Figure  4.2  Basic  Tutorial  Pattern  (Godfrey  &  Sterling,  1982,  p.  49) 


D.  BEHAVIOR 

Typical  behavior  for  an  Intelligent  Tutoring  System  is  shown  in  Figure  4.2  (Godfrey 
&  Sterling,  1982,  p.  49). 

To  begin,  the  program  displays  a  rule,  example,  or  question  and  prompts  for  a  response 
from  the  user.  If  the  user  responds  correctly,  it  is  easy  enough  to  handle,  the  program  simply 
offers  the  student  positive  feedback  and  continues  on  with  another  question.  However,  two 
possibilities  exist  in  the  event  that  the  student  responds  with  an  incorrect  answer.  The  easiest 
to  handle  is  an  expected  incorrect  response.  This  is  an  incorrect  response  that  is  commonly 
made  by  students  in  answering  the  particular  question,  and  in  this  case,  the  programmer  has 
coded  in  a  canned  remediation  sequence.  After  the  student  recieves  the  remediation,  the 
program  continues  with  another  question.  The  other  case,  when  the  student  returns  an 
unanticipated  response  to  the  question,  is  the  hard  part,  and  this  is  where  AI  comes  in.  The 
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program  responds  by  questioning  the  student  in  an  attempt  to  identify  where  the  trouble  is. 
Based  on  the  students  responses,  the  tutor  either  determines  that  some  canned  remediation 
sequence  would  help  the  student,  or  that  some  combination  of  remediation  is  called  for.  After 
the  remediation  is  given,  the  student  is  again  questioned  and  when  the  tutor  is  satisfied,  it 
continues  on  with  the  main  flow  of  the  program.  In  each  case,  the  student  model  is  updated 
to  reflect  the  student ’s  understanding.  A  history  of  related  wrong  answers  may  suggest  that 
an  adaptation  of  the  tutoring  style  or  content  in  needed.  Obviously,  this  is  the  hard  part  in 
creating  an  Intelligent  Tutor,  and  is  why  some  of  the  best  examples  have  come  from 
individuals  or  teams  that  have  backgrounds  in  all  three  of  the  disciplines  that  make  up  this 
field.  This  model  is  a  simplistic  one  but  it  is  good  as  a  general  model. 

E.  EVALUATION  CRITERIA 

Intelligent  Tutor  Systems  can  be  evaluated  based  on  how  well  they  accomplish  four 
main  activities:  modeling  of  knowledge  and  reasoning,  communication,  cognitive  process¬ 
ing,  and  tutoring  (Woolf,  1988,  p.  34). 

1.  Modeling  of  Knowledge  and  Reasoning 

A  good  tutor  will  have  represented  the  domain  knowledge  of  the  subject  to  be 
taught  in  such  a  way  that  it  can  reason  about  that  knowledge.  It  may  at  first  seem  that  any 
expert  system  should  be  able  to  do  this,  but  as  Clancey  found  while  implementing  the  Guidon 
tutor  for  the  Mycin  expert  system,  reasoning  about  knowledge  with  the  goal  to  teach  is  much 
different  from  reasoning  about  knowledge  with  the  goal  to  diagnose  or  provide  solutions 
(Clancey,  1987,  p.  196).  A  good  tutor  will  not  only  be  able  to  reason  about  and  explain  the 
knowledge,  but  also  understand  the  strategy  behind  the  knowledge  representation  well 
enough  to  provide  analogies,  multiple  views,  and  levels  of  explanation  (Clancey,  1987, 

p.  201). 
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2.  Communication 

Tutor  systems  should  take  full  advantage  of  the  hardware  capabilities  for  which 
they  were  implemented.  With  the  advanced  graphics  capabilities  of  today’s  computer 
systems,  good  tutors  should  include  some  combination  of  simulations,  animations,  icons, 
pop-up  windows,  and  pull-down  menus  in  an  attempt  to  provide  an  intuitive  interface  to  the 
user  (Woolf,  1988,  p.  6).  The  student’s  time  should  be  spent  learning  the  domain  being 
presented  instead  of  learning  how  to  interact  with  the  tutor.  With  the  current  capabilities  of 
independent  speech  recognition  and  synthesis  systems,  consideration  should  be  given  to 
including  this  type  of  interface  for  a  tutor  (Gallant,  1 989,  p.  2).  To  be  most  effective  though, 
speech  understanding  should  be  included  and  this  technology  is  not  yet  mature.  Perhaps  once 
we  can  reliably  understand  speed,  as  well  as  recognize  it,  the  Mixed-Initiative  tutor 
paradigm  will  once  again  prevail. 

3.  Cognitive  Processing 

Cognitive  Processing  is  concerned  with  modeling  a  methodology  for  teaching  the 
domain  knowledge ,  and  modeling  how  a  student  learns  within  that  domain.  This  is  probably 
the  most  difficult  part  of  creating  a  good  tutor  (Woolf,  1988,  p.  7).  In  order  to  effectively 
teach  a  student,  we  must  know  or  be  able  to  diagnose  whether  the  student  understands  the 
material  being  presented,  and  if  not,  what  instructional  style  and  content  would  help  the 
student  understand.  A  good  tutor  will  have  a  robust  and  flexible  teaching  style,  so  that  it  can 
adapt  to  individual  student  motivations  and  capabilities.  It  will  also  have  a  dynamic  student 
model  that  can  reason  about  the  student’s  knowledge  or  understanding  about  the  material. 
Naturally,  the  more  complex  and  fragmented  the  knowledge  domain,  the  more  difficult 
effective  cognitive  processing  becomes. 
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4.  Tutoring 

Cognitive  processing  leads  into  tutoring.  Once  we  identify  the  student’s 
understanding  of  the  material,  tutoring  takes  over.  Tutoring  is  the  specific  instructional  style 
used  by  the  system  at  any  given  time.  This  includes  praising,  remediating,  interrupting,  and 
presenting  examples  to  the  student  (Woolf,  1988,  p.  7).  The  best  tutors  attempt  to  respond 
to  the  ideosyncrasies  of  a  student  in  an  effort  to  motivate  the  student  to  continue  to  use  the 
tutor.  It  is  apparant  that  each  of  the  four  activities  of  a  tutor  system  interact  with  each  other 
and  may  either  enhance  or  detract  from  the  effectiveness  of  the  other  activities.  For  example, 
the  tutoring  activity’s  goal  of  motivating  the  student  is  greatly  enhanced  by  a  user-friendly 
communication  medium,  but  degraded  if  the  communication  medium  turns  the  user  away 
from  the  system. 
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V.  DESCRIPTION  OF  THE  AIRCRAFT  RECOGNITION  TUTOR 


The  Aircraft  Recognition  Tutor  was  developed  using  Turbo  Pascal  v5.5  which  also 

provides  Object  Oriented  Programming  support.  Each  of  the  major  components  of  the  tutor 
exists  as  an  object  in  the  program,  and  m^y  contain  other  smaller  objects  as  variables. 
Because  the  tutor  was  developed  in  the  Object  Oriented  Programming  paradigm,  modularity 
is  well  defined.  This  allows  changes  or  improvements  to  be  made  to  the  individual  compo¬ 
nents  of  the  tutor  without  the  need  to  modify  the  remainder  of  the  program. 

A.  DOMAIN  KNOWLEDGE  BASE 

The  domain  knowledge  is  captured  in  a  multi-media  database  consisting  of  aircraft 
images  stored  in  binary  format  and  WEFT  descriptions  stored  in  text  (ASCII)  format.  Each 
aircraft  exists  in  the  program  as  a  composite  object,  thereby  enc^sulating  both  the  binary 
and  textual  information  about  the  aircraft,  as  well  as  the  procedures  and  functions  that  are 
used  to  operate  on  that  information,  into  a  single  data  structure.  For  example,  an  F-16 
Fighting  Falcon  is  an  instance  of  the  aircraft  object  class.  All  aircraft  objects  consist  of  a 
record  containing  all  of  the  WEFT  information  about  the  aircraft,  and  procedures  for 
initializing  and  displaying  the  object.  In  addition,  the  aircraft  class  inherits  from  the  screen 
object  class,  and  as  a  type  of  screen  object,  an  aircraft  definition  also  includes  a  pointer  to  the 
graphic  image  of  the  aircraft  (this  pointer  is  created  in  the  initialization  procedure),  and  a 
procedure  to  hide  the  object  (removes  the  graphic  image  from  the  screen). 

Although  it  would  be  possible  to  load  each  of  the  aircraft  objects  into  main  memory 
during  program  initialization,  the  objects  are  stored  on  disk  and  only  swapped  into  main 
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memory  when  needed.  Having  each  of  the  aircrafts  objects  defined  in  the  system  requires 
a  tremendous  allocation  of  heap  space,  and  since  the  program  has  the  capability  of  learning 
new  aircraft  definitions,  the  possibility  of  causing  a  heap  overflow  exists.  Therefore,  by 
keeping  the  aircraft  definitions  on  disk,  with  only  one  or  two  in  main  memory  at  any  given 
time,  we  minimize  the  memory  requirement  of  the  program  at  the  cost  of  access  speed  to  the 
definitions.  Even  with  this  memory  swapping,  however,  response  time  to  the  student  is  quite 
acceptable. 

The  aircraft  images  that  are  included  in  the  system  were  scanned  in  from  FM  44-30 
using  the  PCX  file  format.  These  images  were  then  brought  into  a  paint  program,  changing 
the  resolution  of  the  image  to  match  that  used  by  the  tutor  (CGA  640x200,  two  color), 
resized,  and  cleaned  up.  The  images  remain  in  the  PCX  format,  and  therefor  could  be  easily 
modified  using  any  PCX  compatible  paint  program. 

In  addition,  the  tutor  includes  a  utility  routine  that  allows  new  aircraft  to  be  defined  or 
existing  aircraft  definitions  to  be  modified.  This  utility  consists  of  a  simple  drawing  program 
for  creating  the  aircraft  image  combined  with  a  menu  selection  for  identifying  the  WEFT 
features  for  the  aircraft.  The  new  aircraft  image  is  saved  in  the  PCX  format  to  maintain 
compatibility  with  the  knowledge  base,  and  thus  could  also  be  edited  in  a  paint  program .  The 
utility  saves  the  new  or  updated  definition  as  an  aircraft  object  on  the  disk.  Another  utility 
included  within  the  program  allows  the  aircraft  that  will  be  taught  by  the  tutor  to  be  selected 
from  among  all  those  currently  defined  and  stored  on  the  disk.  With  this  utility,  the  tutor  can 
be  configured  to  teach  all  the  aircraft  defined,  or  any  subset  of  those  aircraft. 

B.  STUDENT  MODEL 

The  student  model  for  the  system  consists  of  two  components,  a  persistent  part  and  a 
transient  part.  The  persistent  part  of  the  Student  Model  consists  of  default  student  models 
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for  each  level,  which  are  configurable  by  the  Aircraft  Recognition  Tu/or  Administrator.  The 
default  model  for  the  Novice  Level  initially  consists  of  all  of  the  WEFT  features  that  are 
contained  in  the  system.  It  is  not  expected  that  this  default  model  will  be  changed.  The 
default  model  for  the  Intermediate  and  Expert  Levels  consist  of  all  of  the  specific  aircraft  to 
be  taught  by  the  system.  The  default  initially  consists  of  44  different  aircraft  (with  three 
views  of  each),  but  can  be  selected  from  the  available  number  of  aircraft  that  have  been 
defined  for  the  system  .  This  model  represents  what  the  student  needs  to  be  taught,  and  when 
the  student  demonstrates  the  knowledge  of  an  item  in  this  model,  it  is  removed. 

In  addition,  the  persistent  part  of  the  student  model  tracks  student  performance 
information,  as  well  as  the  student's  current  Mode  or  Level.  This  information  includes  the 
number  of  items  pre.sented  to  the  student,  the  number  of  correct  responses,  the  number  of 
anticipated  incorrect  responses,  and  the  number  of  unanticipated  incorrect  responses.  The 
transient  part  of  the  student  model  keeps  track  of  student  misconceptions.  Both  parts  are 
updated  dynamically  during  the  tutoring  session,  the  difference  being  that  when  a  session  is 
ended  the  persistent  part  of  the  student  model  is  written  back  to  disk  and  will  be  used  by  the 
next  session,  while  the  transient  part  is  deleted  at  the  end  of  a  session. 

Each  student  that  uses  the  system  will  have  an  individual  student  model.  When  a  new 
student  is  encountered  (ie.  a  student  model  does  not  exist  for  the  student),  the  student  is 
diagnosed  by  the  system  to  determine  the  appropriate  level  and  mode  at  which  the  student 
should  enter  the  system.  TTie  .student  is  then  assigned  a  default  model  corresponding  to  the 
level,  and  begins  a  tutor  session  at  the  determined  level  and  mode.  The  tutor  system  includes 
utilities  that  allow  the  student  model  database  to  be  accessed.  These  utilities  include  the 
ability  to  delete  students  from  the  database  or  retrieve  student  administrative  and  perform¬ 
ance  information. 
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B.  TUTORIAL  KNOWLEDGE  BASE 


The  Tutor  system  in  the  Aircraft  Recognition  Tutor  consists  of  three  tutoring  Hes: 
Teach,  Review,  and  Test,  and  three  levels:  Novice,  Intermediate,  and  Expert.  Tutoring 
sessions  exist  for  each  combination  of  mode  and  level,  with  the  exception  that  no  sessions 
exist  for  Novice-Test  and  Expert -Teach.  The  assumptions  here  are  that  when  a  student  has 
successfully  completed  the  Novice-Review  session,  he  is  ready  for  more  advanced  instruc¬ 
tion  and  should  not  be  delayed  (the  Novice  level  is  elementary  enough  that  it  is  easy  to  learn 
and  we  do  not  want  to  risk  boredom  by  keeping  a  student  at  this  level  for  an  inordinate  amount 
of  time),  and  that  a  student  that  has  successfully  demonstrated  his  expertise  in  identifying 
aircraft  at  the  Intermediate  Level  need  not  be  retaught  these  same  aircraft  (albeit  from  a 
different  point  of  view)  in  the  Expert  Level, 

1.  Novice  Level 

The  Novice  Level  keys  in  on  WEFT (  Wings,  Engine,  Fuselage, Tail)  theory,  and 
provides  the  student  with  the  background  necessary  to  consistently  identify  aircraft  using  a 
validated  cognitive  model.  Each  WEFT  category  is  broken  down  into  separate  subcategories 
which  are  taught  in  a  logical  sequence  by  displaying  a  generic  aircraft  and  modifying  a 
particular  feature  of  the  aircraft  and  identifying  this  feature  to  the  student.  Review  consists 
of  randomly,  but  completely,  displaying  all  of  the  features  introduced  in  the  Teach  mode. 
The  student  is  then  expected  to  identify  these  features,  and  the  tutor  takes  an  appropriate 
course  of  action  based  on  the  student’s  response. 

2.  Intermediate  Level 

The  Intermediate  Level  teaches  the  WEFT  characteristics  of  each  individual 
aircraft  used  in  the  current  configuration  of  the  system  by  presenting  a  visual  image  of  the 
aircraft  and  identifying  the  WEFT  features  that  distinguish  that  particular  aircraft  from 
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another.  Similar  aircraft  are  presented  along  with  the  aircraft  currently  being  taught  to  allow 
the  student  to  firmly  grasp  the  differences  between  the  two  aircraft.  The  focus  of  this  level 
is  to  associate  in  the  student's  mind  the  visual  image  of  the  aircraft  with  its  corresponding 
WEFT  description.  Review  is  accomplished  by  randomly  but  completely  presenting  each 
aircraft  and  allowing  the  student  to  identify  the  aircraft  by  name  and  nomenclature,  and 
taking  action  based  on  the  student ’s  response.  Testing  consists  of  presenting  the  student  with 
each  aircraft  in  the  default  model,  allowing  the  student  to  identify  the  aircraft,  and 
maintaining  a  record  of  the  students  performance, 

3.  Expert  Level 

The  Expert  Level  reviews  and  tests  the  student  based  on  WEFT  characteristics  of 
the  aircraft  alone;  no  visual  image  of  the  aircraft  is  presented, 

4.  Tutorial  Strategy 

During  a  review,  three  possible  conditions  can  exist  when  a  student  attempts  to 
identify  a  WEFT  feature  of  aircraft;  (1)  the  student  may  respond  correctly,  (2)  tiie  student 
may  respond  with  an  anticipated  but  incorrect  answer,  and  (3)  the  student  may  respond  with 
an  unanticipated,  incorrect  answer.  Each  of  these  conditions  is  handled  differently  by  the 
tutor  system. 

In  case  (1),  the  tutor  system  will  recognize  the  student  for  the  correct  answer, 
remove  the  WEFT  feature  or  aircraft  from  the  persistent  student  model,  and  present  another 
item  from  the  model  to  the  student. 

In  case  (2),  the  student  is  presented  with  both  the  feature  or  aircraft  being 
reviewed  and  the  feature  or  aircraft  that  the  student  mistook  it  for.  Both  are  identified  to  the 
student,  and  the  system  performs  a  comparison  of  the  two  for  the  student  so  that  the 
differences  are  reinforced  in  the  student’s  mind.  The  feature  or  aircraft  is  not  removed  from 
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the  student  model,  thereby  requiring  the  student  to  demonstrate  identification  of  it  again 
some  time  later  in  the  session.  The  tutor  then  continues  with  another  item  from  the  student 
model. 

In  case  (3),  the  feature  or  aircraft  is  identified  to  the  student,  and  the  student  is 
asked  to  identify  specific  features  of  the  feature  or  aircraft.  When  all  of  the  features  have  been 
either  correctly  identified,  or  the  tutor  system  has  corrected  the  student,  that  feature  or 
aircraft  is  added  to  the  persistent  student  model  and  a  link  is  created  in  the  transient  student 
model,  storing  the  students  misconception,  so  that  if  the  student  makes  the  same  mistake 
again,  it  will  be  handled  as  in  (2)  above.  The  tutor  session  then  continues  as  in  (1 )  and  (2). 

As  one  can  see,  the  student  model  may  contain  duplicate  items,  thus  the  student 
may  have  to  identify  a  feature  or  aircraft  several  times  before  the  system  is  satisfied  with  the 
student’s  knowledge  of  that  item.  A  student  has  the  ability  to  interrupt  the  tutor  session  at 
any  time.  In  this  way  the  student  may  end  the  tutor  session,  get  context  sensitive  help,  or 
request  that  the  tutor  present  a  specific  WEFT  feature  or  aircraft.  By  providing  the  latter 
facility,  we  allow  the  student  to  have  some  control  over  the  flow  of  the  instruction  in  the 
program.  After  the  student  has  been  presented  the  information  that  he  requested,  control  is 
returned  to  the  tutor  which  picks  up  where  it  was  interrupted. 

5.  Student  Evaluation 

Student  performance  is  evaluated  when  one  of  two  events  occur.  First,  if  the 
student  model  is  empty,  then  the  student  has  completed  a  session.  The  student’s  perform¬ 
ance  will  indicate  whether  the  student  will  move  to  the  next  Mode  or  Level,  remain  at  the 
current  Mode  or  Level,  or  digress  to  the  previous  Mode  or  Level,  based  on  heuristics  included 
in  the  system.  Second,  the  student  model  is  limited  to  twice  the  number  of  items  contamed 
in  the  default  model.  If  the  student  completely  fills  the  student  model  to  capacity,  then  the 
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cuaent  session  will  be  ended,  and  the  student  will  begin  a  new  session  at  the  previous  Mode 
or  Level.  When  the  student  moves  to  a  new  Mode  or  Level,  both  the  persistent  and  transient 
portions  of  the  student  model  are  reinitialized.  If  the  student  interrupts  a  session  prior  to 
completion,  the  persistent  model  will  be  saved  to  disk,  but  the  transient  model  will  be  lost. 
A  student  reentering  the  system  will  be  taught  using  the  persistent  model  that  existed  when 
the  last  session  was  terminated,  thereby  providing  continuity  of  instruction. 

D.  INTEGRATION  SYSTEM 

The  integration  system  consists  of  the  user  interface  and  a  control  program  that  acts  to 
direct  the  actions  of  the  other  three  modules,  including  interaction  between  these  modules. 
The  interface  for  the  tutor  is  graphically  oriented  and  was  intentionally  kept  basic  and 
intuitive.  It  consists  of  several  distinct  objects;  help  screens  to  provide  context  sensitive  help 
information  to  the  student,  dialog  boxes  to  communicate  with  the  student,  and  menus  to 
accept  information  and  selections  from  the  student.  “Hot”  keys  allow  the  student  to  easily 
quit  what  they  are  doing,  request  help,  or  interrupt  the  tutor.  In  addition,  the  tutor  system 
includes  a  one  or  tw  o  player  game  mode  in  order  to  encourage  usage  of  the  program.  The 
one  player  game  allows  the  student  to  compete  against  the  computer,  while  the  two  player 
game  allows  two  students  to  compete  against  each  other  in  a  “Jeopardy”  style  game  of  aircraft 
recognition.  An  aircraft  is  presented  to  the  players,  and  the  first  to  recognize  it  presses  their 
“button”.  The  player  is  then  given  a  chance  to  identify  the  aircraft  in  a  menu  that  wUl  appear. 
A  limited  amount  of  time  is  allowed  for  the  player  to  recognize  the  aircraft.  The  game 
consists  of  25  aircraft  presentations.  Points  are  awarded  for  a  correct  response,  and  deducted 
for  an  incorrect  response.  After  all  25  aircraft  have  been  shown,  the  player  with  the  highest 
score  is  the  winner.  Performance  in  the  game  mode  of  the  program  is  not  tracked  in  the 
student  model. 
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E.  IMPLEMENTATION  DETAILS 

As  mentioned  previously,  the  Aircraft  Recognition  Tutor  was  developed  using  the 
Object  Oriented  Programming  (OOP)  paradigm.  The  benefits  of  OOP  are  the  addition  of 
methods  (procedures  and  functions)  to  abstract  data  types,  inheritance,  encapsulation, 
modularity,  and  code  reusability. 

The  tutor  system  consists  of  three  separate  programs;  an  install  program,  an  unstall 
program,  and  the  tutor  program  itself.  Figure  5.1  shows  the  hierarchical  structure  of  the 
Aircraft  Recognition  Tutor  programs  and  units. 
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Figure  5.1  Hierarchical  Structure  of  the  Aircraft  Recognition  Tutor 

A.  The  Install  Program 

This  program  allows  the  user  to  install  the  Aircrqft  Recognition  T utor  on  his  hard 
disk  drive  simply  by  typing  a  single  command  and  switching  diskettes  when  prompted.  In 
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addition,  the  program  checks  that  the  user’s  system  meets  all  of  the  requirements  for  running 
the  tutor;  for  example,  the  install  program  verifies  that  a  CGA  compatible  graphics  adapter 
is  present,  checks  for  and  creates  a  subdirectory  for  the  tutor,  insures  adequate  disk  space  is 
available,  etc.  This  program  wiH'only  allow  one  installation  of  the  tutor  system. 

B.  The  Unstall  Program 

The  tutor  system  is  designed  to  be  installed  and  used  on  a  single  computer.  The 
system  is  copy  protected  to  insure  that  incomplete  or  corrupted  versions  of  the  program  are 
not  distributed.  In  order  to  allow  movement  of  the  tutor  system  from  one  computer  to 
another,  the  Unstall  program  was  created.  This  program  removes  the  program  from  the 
computer  that  it  was  installed  on  and  replaces  the  hidden  copy  protection  file  back  on  the 
original  floppy  diskette.  After  running  the  Unstall  program,  the  mtor  system  may  be  moved 
to  another  computer  using  the  Install  program. 

C.  The  Tutor  Program 

Tlie  Tutor  itself  is  comprised  of  a  main  program  and  several  units  used  by  the 
main  program.  These  units  consist  of  either  object  definitions  or  logically  grouped  functions 
and  procedures. 

1.  The  Main  Program 

The  main  program  initializes  the  user’s  computer  to  be  compatible  with  the 
tutor  system.  In  addition,  the  main  program  presents  the  main  menu  to  the  user  and  passes 
control  to  the  other  units  based  on  the  user’s  input. 

2.  The  Screens  Unit 

This  unit  defines  the  Screen  object  class.  There  are  no  instances  of  this 
class;  it  exists  simply  to  allow  other  classes  to  inherit  methods  and  variables  that  they  have 
in  common.  A  Screen  object  consists  of  variables  to  track  the  location  and  visibility  status 
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of  the  object,  a  file  containing  the  graphic  image  of  the  object,  a  pointer  to  the  object,  and 
procedures  to  initialize,  show,  hide,  and  kill  the  object. 

3.  The  Aircraft  Unit 

This  unit  defines  the  Aircraft  object  class.  This  class  is  a  subclass  of  the 
Screen  class  and  inherits  all  of  the  variables  and  methods  defined  for  Screen  objects.  In 
addition.  Aircraft  objects  consist  of  a  record  that  contains  all  of  the  WEFT  information  about 
the  aircraft,  and  redefine  the  procedures  and  methods  inherited  from  the  Screen  class. 

4.  The  Dialogs  Unit 

This  unit  defines  the  Dialog  object  class.  A  Dialog  object  is  an  interaction 
window  that  appears  on  the  screen,  either  giving  textual  information  to  the  user.  c/.  providing 
a  location  for  the  user  to  enter  information.  Dialog  objects  also  inherit  from  the  Screen  class. 
This  class  redefines  the  Show  and  Hide  procedures,  and  includes  an  additional  pointer  which 
is  used  to  save  the  part  of  the  screen  image  that  is  overwritten  by  the  Dialog  object  so  that 
it  may  be  restored  when  the  Dialog  object  is  removed. 

5.  The  Menus  Unit 

Menu  objects  are  a  new  class  of  objects;  they  do  not  inherit  from  any  o^her 
class.  A  Menu  object  consists  of  variables  for  the  menu  title,  top  item,  selected  item, 
highlighted  item,  number  of  selections,  an  array  of  menu  selections,  a  file  containing  the 
menu  information,  a  procedure  to  initialize  and  display  the  menu,  and  a  function  to  get  the 
menu  selection  from  the  user. 

6.  The  Student  Unit 

This  unit  defines  the  Student  Model  object,  which  contains  all  of  the  infor¬ 
mation  known  about  each  individual  student.  An  individual  Student  Model  consists  of  a 
student  name,  current  mode  and  level,  the  latest  test  score,  the  persistent  and  transient  parts 
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of  the  model,  and  the  number  of  aircraft  shown  and  missed  during  the  current  mode  and  level. 
In  addition,  procedures  to  get,  update,  save,  and  kill  the  student  model,  and  functions  to  get 
and  add  entries  to  the  model  are  defined. 

7.  The  Tutor  Unit 

This  unit  consists  of  a  set  of  procedures  and  functions  that  capture  the 
WEFT  teaching  strategy.  These  include  procedures  to  diagnose  the  student,  teach  and  review 
the  student  at  the  Novice  Level,  teach,  review,  and  test  the  student  at  the  Intermediate  Level, 
review  and  test  the  student  at  the  Expert  Level,  and  evaluate  the  student.  In  addition, 
functions  that  display  individual  WEFT  features  of  an  aircraft  and  compare  WEFT  features 
of  two  aircraft  are  defined. 

8.  The  Game  Unit 

This  unit  consists  of  procedures  that  control  the  one  and  two  player  game 

modes. 

9.  The  Help  Unit 

This  unit  defines  the  Help  object  class.  Help  objects  inherit  from  the  Screen 
class.  This  class  redefines  the  Show  and  Hide  procedures  from  the  Screen  class  and  also  adds 
an  additional  pointer  to  save  the  screen  that  the  Help  object  will  overwrite.  The  procedure 
to  get  help  is  not  defined  in  the  Help  class  definition,  but  exists  separately  within  this  unit. 
This  is  because  only  one  Help  object  can  exist  at  one  time,  and  defining  the  get  help  procedure 
outside  the  class  definition  allows  it  to  be  generic  for  each  of  the  Help  objects. 

10.  The  Utility  Unit 

This  unit  consists  of  a  set  of  procedures  that  allow  the  administrator  of  the 
tutor  system  to  customize  it  and  perform  some  database  management  activities.  These 
include  procedures  to  allow  the  administrator  to  select  the  aircraft  that  will  be  taught  by  the 


system  from  among  those  defined,  to  add  to  or  modify  the  aircraft  that  are  defined  in  the 
system,  to  retrieve  performance  and  administrative  information  about  an  individual  student, 
and  to  delete  a  student  from  the  system. 
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VI.  EVALUATION  OF  THE  AIRCRAFT  RECOGNITION  TUTOR 

Tht  Aircraft  Recognition  Tutor  can  be  evaluated  in  several  ways.  First,  we  will  look 
at  the  tutor  in  terms  of  its  effectiveness  as  a  training  aid  for  visual  aircraft  recognition.  For 
this  we  will  use  the  training  guidelines  described  in  Ch^ter  II  as  a  basis  of  evaluation' .  Then 
we  will  evaluate  the  Aircraft  Recognition  Tutor  in  terms  of  the  evaluation  criteria  for 
intelligent  tutoring  systems  that  were  described  in  Chapter  IV^ 

A.  AS  A  VACR  TRAINING  AID 

1.  Wings,  Engine,  Fuselage,  Tail  (WEFT) 

The  Aircraft  Recognition  Tutor  uses  the  WEFT  theory  as  a  basis  for  the 
instruction  presented  to  the  student.  The  student  is  first  taught  to  recognize  the  basic 
elements  of  WEFT  theory  (wings,  engine,  fuselage,  and  tail)  based  on  the  differences  in  their 
shape,  size,  number,  and  position.  The  student  is  then  taught  to  distinguish  one  aircraft  type 
from  another  based  on  a  composite  of  these  WEFT  elements.  This  instruction  systematically 
presents  the  information  to  the  student,  but  at  the  same  time  uses  both  the  domain  knowledge 
and  the  student  model  to  tailor  the  tutoring  session  to  the  student. 

2.  Simplicity 

The  terms  used  to  describe  the  WEFT  features  are  not  technical  terms,  but  the 
common  “layman”  terms  that  most  people  associate  with  the  different  features.  In  addition, 
uniformity  of  naming  conventions  and  descriptions  is  maintained  throughout  the  system. 


'See  pages  4-5. 
^See  pages  24-26. 
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3.  Comparison 

Daring  a  review  session,  if  the  student  mistakes  an  aircraft  with  one  that  is  similar 
in  appearance  based  on  its  WEFT  features,  the  tutor  displays  both  aircraft  side  by  side  so  that 
the  student  may  see  directly  the  differences  that  distinguish  the  two  aircraft,  and  learn  how 
not  to  confuse  them.  The  tutor  then  points  out  to  the  student  the  specific  WEFT  features  of 
the  two  aircraft  that  differ.  In  addition,  the  student  is  given  the  ability  to  interrupt  the  tutor 
at  any  time  and  request  that  a  specific  aircraft  be  shown  and  described.  In  this  way,  the 
student  can  perform  a  comparison  of  any  aircraft  defined  in  the  system.  This  ability  to 
actively  interact  with  the  tutor  is  important  to  the  teaching  strategy.  The  student  has  a  high 
degree  of  control  over  the  instruction,  if  this  is  desired .  On  the  other  hand,  the  tutor  is  capable 
of  independently  presenting  the  entire  lesson  to  the  student. 

4.  Controlled  Image  Training 

As  each  aircraft  is  presented  during  a  teaching  session,  the  individual  comp>onents 
of  aircraft  are  presented  as  separate  recognition  feamres  for  study.  The  composite  of  these 
features  are  then  learned  in  order  to  identify  a  particular  aircraft.  During  a  review  session, 
if  the  student  mistakes  the  aircraft  presented  for  one  that  does  not  resemble  it,  the  tutor  will 
ask  the  student  to  identify  the  separate  recognition  features  that  distinguish  that  view  of  the 
aircraft,  thus  reinforcing  controlled  image  training. 

5.  Segregation 

The  tutor  allows  students  to  be  trained  according  to  their  ability.  Since  the  tutor 
first  diagnoses  a  student's  ability,  and  places  him  at  a  level  in  the  tutor  appropriate  to  that 
ability,  new  students  and  students  needing  detailed  instruction  are  taught  at  a  different  level 
than  more  advanced  students  who  may  only  need  review  and  testing.  In  addition,  since  the 
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tutor  is  designed  to  provide  individual  instruction,  and  maintains  a  student  model  for  each 
student,  the  system  tailors  the  training  to  each  individual. 

6.  Repetition 

Since  the  tutor  operates  on  a  personal  computer,  students  may  study  at  their  own 
convenience,  as  often  as  necessary  or  desired,  and  in  periods  that  suit  the  individual.  Also, 
the  game  mode  of  the  tutor  was  designed  to  encourage  frequent  use  of  the  program. 

B.  AS  AN  INTELLIGENT  TUTOR 

1.  Modeling  of  Knowledge  and  Reasoning 

Because  the  Aircraft  Recognition  Tutor  teaches  a  very  specific  knowledge 
domain  and  relies  on  a  well  developed  model  for  reasoning  about  that  knowledge,  and 
because  the  knowledge  is  represented  in  object  oriented  style,  both  the  knowledge  and  ability 
to  reason  about  it  are  encapsulated  in  a  concise,  coherent  manner.  Not  only  does  this  allow 
the  tutor  to  reason  about  the  knowledge  (eg.  the  tutor  can  compare  two  aircraft  and  decide 
whether  they  “appear”  similar  enough  to  expect  confusion  by  the  student),  but  the  modularity 
of  the  knowledge  base  makes  additions  or  changes  to  it  simple  and  straight  forward. 

2.  Communication 

Although  the  Aircraft  Recognition  Tutor  takes  full  advantage  of  the  hardware 
capability  that  it  was  implemented  for,  this  remains  one  of  the  major  weaknesses  of  the 
system.  Since  the  tutor  was  constrained  to  operate  on  existing  U.S.  Army  computer 
hardware,  and  this  hardware  has  limited  capabilities  in  terms  of  graphics  resolution  and 
interface  support,  the  possibilities  for  improvement  of  the  interface  are  tremendous.  The 
addition  of  mouse  support  would  be  a  major  improvement,  allowing  a  much  more  natural 
method  of  selecting  from  the  menus.  Using  higher  resolution  images  of  the  aircraft  would 
give  the  student  a  more  realistic  impression  of  the  aircraft.  It  should  be  noted,  however,  that 
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the  limitations  in  this  area  were  known  in  advance  of  the  development  of  the  system  and  are 
based  solely  on  the  hardware  constraints  of  the  computers  it  was  designed  for.  Additional 
interface  support  in  the  software  would  not  be  difficult  to  provide.’ 

3.  Cognitive  Processing 

Students  are  modeled  by  not  only  what  they  do  not  seem  to  understand,  but  also 
by  that  which  they  have  not  yet  demonstrated  any  knowledge.  This  is  possible  because  of 
the  well  defined  knowledge  domain  taught  by  the  tutor.  Since  the  number  of  aircraft  and 
associated  features  taught  by  the  system  is  finite,  we  can  start  a  student  out  with  a  default 
model  based  on  their  performance  during  the  diagnostic  phase,  and  then  add  and  delete  fi'om 
this  model  as  we  learn  more  specifically  what  the  student  does  and  does  not  know. 

4.  Tutoring 

The  instructional  style  used  by  die  system  varies  according  to  the  current  level 
and  mode  of  the  student.'*  A  student  progresses  through  these  levels  and  modes,  and  based 
on  the  student’s  performance  is  allowed  to  advance  to  higher  levels  and  modes,  remain  at  a 
current  level  and  mode,  or  revert  to  a  previous  level  or  mode. 


’See  pages  44-45  for  a  description  of  the  types  of  improvement  that  could  be  made 
to  the  interface. 

*See  pages  30-32. 
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VII.  CONCLUSION 


A.  ACCOMPLISHMENTS 

Over  a  period  of  six  months,  we  have  designed,  developed,  tested,  and  e .  aluated  the 
Aircraft  Recognition  Tutor,  an  intelligent  tutor  system  for  visual  aircraft  recognition.  The 
system  was  developed  using  Object  Oriented  programming  techniques,  and  therefore  is 
modular  and  easy  to  maintain.  We  have  demonstrated  that,  using  existing  technology  in 
Computer  Science  and  Artificial  Intelligence,  a  useful  training  system  could  be  developed 
quickly  and  inexpensively  for  use  on  existing  computer  hardware  in  the  field.  We  have 
faithfully  captured  the  WEFT  cognitive  model  for  visual  aircraft  recognition  instruction 
within  a  friendly  medium .  By  distinguishing  between  what  the  student  has  not  demonstrated 
a  knowledge  of  and  what  he  has  demonstrated  a  lack  of  knowledge  about,  we  have  developed 
a  student  model  that,  unlike  many  others,  accurately  represents  the  current  knowledge  of  the 
student  The  system  is  effective  both  as  a  formal  training  system  and  as  an  informal  "game" 
device.  Acceptance  of  the  system  among  soldiers  has  been  outstanding.  Since  the  US.  Army 
has  deployed  Zenith  desktop  and  laptop  personal  computers  at  the  battalion  level,  and  in 
some  cases  at  the  company  or  battery  level,  failure  to  take  full  advantage  of  this  equipment 
for  training  purposes  would  be  unforgivable.  The  possibilities  for  the  development  of 
training  applications  is  limited  only  by  the  imagination. 

B.  FUTURE  IMPROVEMENT  AND  MODIFICATIONS 

Based  on  the  recommendations  from  the  field  evaluation,  several  modifications  could 
be  implemented  to  improve  the  Aircraft  Recognition  Tutor. 
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1.  Improvements  to  the  Interface 

Of  most  obvious  need  of  improvement  is  the  graphics  resolution  of  the  system. 
Currently  the  tutor  uses  the  CGA  640x200  two  color  mode.  EGA  gr^hics  offer  the 
capability  for  a  resolution  of  640x350  pixels  in  16  colors.  This  mode  would  allow  a  much 
more  attractive  interface,  but  the  aircraft  images,  although  better,  would  still  need  to  be  line 
drawings  in  order  to  show  details  clearly.  VGA  and  Super  VGA  graphics  modes  (640x480 
and  800x600  pixels,  respectively,  each  with  at  least  16  colors)  would  allow  the  images  used 
by  the  tutor  to  be  scanned  from  actual  photographs  of  the  aircraft.  This  would  be  the  ideal 
resolution  for  images  that  are  scanned  into  and  stored  by  the  program  as  bitmaps.  However, 
other,  perhaps  better  options  exist,  given  a  higher  screen  resolution.  Next  in  desirability 
would  be  to  use  an  interactive  digital  video  system  to  present  actual  filmed  images  of  the 
aircraft.  The  video  system  would  be  controlled  by  the  tutor  system,  and  would  replace  the 
scanned  images  currently  used.  This  would  have  the  added  benefit  of  greatly  reducing  the 
amount  of  disk  space  required  by  the  tutor.  Finally ,  the  aircraft  could  be  represented  as  three 
dimensional  models,  and  manipulated  through  homogeneous  transformations.  This  would 
allow  the  aircraft  to  be  scaled,  translated,  and  rotated,  and  then  displayed  in  any  of  an  infinite 
number  of  aspects,  and  would  also  require  much  less  disk  space  than  the  images  currently 
used.  Combined  with  this  could  be  a  terrain  and  cloud  database  that  allow  the  aircraft  to  be 
displayed  superimposed  or  overlayed  with  a  more  realistic  environment.  This  would  provide 
the  ability  to  partially  obscure  the  aircraft,  something  that  is  likely  to  occur  in  reality. 

Another  major  improvement  would  be  the  integration  of  mouse  support  with  the 
interface.  In  fact,  this  is  a  very  simple  improvement  that  has  been  made  to  one  version  of  the 
tutor  already.  Unfortunately,  since  the  hardware  that  the  tutor  was  designed  for  does  not 
include  a  mouse,  this  feature  was  left  out  of  the  final  product.  Thought  was  also  given  to 
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using  a  speech  recognition  system  as  the  primary  interface  between  the  student  and  the  tutor, 
but  the  rarity  of  these  systems  in  the  field,  as  well  as  the  lack  of  compatibility  among  them, 
prevented  this  from  being  reasonable. 

2.  Improvements  to  the  Tutoring  Strategy 

Additional  characteristics  could  be  tracked  by  the  student  model,  in  order  to 
provide  a  more  accurate  understanding  of  the  student’s  knowledge  of  the  domain.  For 
example,  once  the  student  is  in  the  inteimediate  mode,  the  tutor  assumes  that  the  student  has 
mastered  the  individual  WEFT  characteristics,  and  no  longer  tracks  the  student’s  pierform- 
ance  in  this  area.  However,  since  the  student  is  sometimes  asked  to  identify  the  specific 
WEFT  features  of  an  aircraft  that  he  was  unable  to  identify  correctly,  the  ability  and  perhaps 
the  need  to  track  this  information  exists.  Currently,  if  a  student  reverts  to  a  previous  level 
or  mode,  he  is  assigned  the  default  model  for  that  level  or  mode.  By  tracking  characteristics 
of  all  of  the  levels  and  modes  at  all  times,  the  tutor  could  better  teach  the  student  at  any  level 
or  mode. 

Additional  teaching  styles  could  be  implemented.  Tltis  would  allow  the  tutor  to 
teach  a  student  in  a  different  maimer  if  it  appears  that  the  student  is  having  trouble  with  the 
current  teaching  style.  The  tutor  currently  teaches  in  a  different  style  for  each  level  and 
mode,  but  within  a  particular  level  and  mode,  only  one  teaching  strategy  is  used.  If  the 
student  fails  to  respond  to  this  strategy,  the  tutor  will  revert  them  to  a  previous  level  or  mode 
for  additional  preparation  before  returning  to  the  current  level  or  mode. 

C.  POSSIBLE  ADAPTATIONS 

Several  training  subjects  are  directly  comparable  to  VACR  and  therefore  represent  an 
opportunity  for  adaptation  of  the  Aircraft  Recognition  Tutor.  Helicopter  recognition  is 
taught  in  the  same  manner  as  fixed-wing  aircraft  recognition,  and  the  tutor  could  be  modified 
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easily  to  teach  this  subject  by  defining  the  additional  WEFT  characteristics  common  among 
helicopters  and  defining  the  helicopter  objects.  This  could  be  done  by  adding  onto  the 
existing  knowledge  domain,  or  by  substituting  directly  a  new  knowledge  domain  for 
helicopters.  Armored  vehicle  recognition  and  ship/submarine  recognition  represent  other 
subjects  that  the  tutor  could  teach  with  an  adjustment  of  the  tutorial  strategy  and  defining  the 
appropriate  knowledge  domain  objects. 
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APPENDIX  A  -  CODE 


{ 

Aircraft  Recognition  Tutor 
program  by  Larry  W.  Campbell 
1990 

No  warranties  whatsoever  are  provided  with  ttiis  program.  Use  at  own  risk. 

This  program  may  be  used  or  modified  under  the  following  conditions: 

1 .  Any  modified  program  will  include  the  author’s  name  in  the  program. 

2.  A  copy  of  the  modified  program  will  be  provided  to  the  author. 

Send  comments,  suggestions,  bug  reports,  or  modifications  to: 

CRT  Larry  W.  Campbell 
SMC  2269 

Naval  Postgraduate  School 
Monterey,  CA  93940 

E-Mail  at  campbetl@cs.nps.navy.mil 

} 

program  ART; 

uses  CRT,  Graph,  Saeens,  Dialogs,  Menus,  Tutor,  Game,  Utility,  Student,  Help; 
type 

name  =  string(20]; 
var 

TempScreen,  BinoScreen  ;  Screen; 

Help  Item  :  HelpScreen; 

MainMenu  :  Menu; 

HelpMenu  :  Menu; 

GraphDriver,  GraphMode,  ErrorCode,  ChoiceNum  :  Integer; 

Choice  :  name; 

Ch  :  char; 

F :  text; 

RIeName  :  string; 

procedure  HallofFame; 
var  FameName  :  name; 

X,Y  :  integer; 
begin 
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T  empScreen .  lnit(‘halHame.scr’) ; 

T  empScrean  .Show(0, 0) ; 

Assign(F,’HallFame.rec'); 

Reset(F); 

SetColor(1): 

X  50; 

Y  :=  30; 

while  (not  eof{F))  and  (X  <  600)  do 
begin 

Readln(F,  FameName) ; 
OutTextXY(X,Y,FameName); 

Y;=Y+10; 
if  Y  -  200  then 
begin 

X  >  X  +  200; 

Y  :=  30; 
end; 

end; 

Ch  :=  ReadKey; 

SetColo^(O); 

ClearDevice; 

TempScreen.Kill; 

Close(F); 

end; 

procedure  RunTutor; 
begin  {RunTutor} 

BinoScreen.Show(0,0); 

TutorSession; 

BinoScreen.Hide; 
end;  (RunTutor) 

procedure  RunGame; 
begin  (RunGame) 

BinoScreen.Show(0,0); 

PlayGame; 

BinoScreen.Hide; 
end;  (RunGame) 

procedure  GetHelp; 
begin  (GetHelp) 

Choice  :=  HelpMenu.GetChoice; 
while  (Choice  <>  ‘EXIT  HELPI’)  and  (Choice  <>  ‘null’)  do 
begin 

H  Choice  =  ‘ABOUT  HELP!’  then 
Helpltem.lnit(‘help.hlp’) 
else  if  Choice  =  ‘TUTOR  HELP!’  then 
Helpftem.lnit(‘tutor.hlp’) 
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else  if  Choice  =  ‘GAME  HELP!’  then 
Helpitem.  Init('game.hlp') 
else  if  Choice  =  ‘SETUP/UTILITY  HELP!’  then 
Helpitem.  Init(‘setup.  hip') ; 

Help  Item. Show{0,0): 

Ch  :=  ReadKey: 

HelpItem.Hide; 

Helpitem. Kill; 

GotoXY(1,1); 

Choice  :=  HelpMenu.GetChoice; 
end; 

end;  {GetHelp} 
begin  {Main  Program} 

{Initialize  Graphics  Adapter  to  CGA  640x200  2-color  mode) 
GraphDriver  >  CGA; 

Graph  Mode  :=  CGAHi; 
lnitGraph(GraphDriver,  GraphMode, "); 

SetBkColor(Green) ; 

{Load  the  graphics  and  data  into  memory) 

T  empScreen .  Init(‘initial  .scr’) ; 

BinoScreen.  Init(‘main  .scr’) ; 

MainMenu.  lnit(‘Main.  mnu') ; 

HelpMenu.  lnit(‘Help.  mnu') ; 

{Display  the  Initial  Title  Screen) 

T  empScreen  .Show(0,0) ; 

Ch  ;=  ReadKey; 

TempScreen.Hide; 

TempScreen.Kill; 

HallofFame; 

{Display  the  Initial  Menu  Screen  and  Get  a  Response) 
StudentModel.Mode  ;=  "; 

Choice  ;=  MainMenu. GetChoice; 
while  (Choice  <>  ‘EXIT’)  and  (Choice  <>  ‘null’)  do 
begin 

if  Choice  =  ‘TUTOR  SESSION’  then  i^unTutor 
else  if  Choice  =  ‘GAME’  then  RunGame 
else  if  Choice  =  ‘HELP!’  then  GetHelp 
else  if  Choice  =  ‘SETUP’  then  SetUp; 

GotoXY(1,1); 

StudentModel.Mode  ;=  "; 

Choice  ;=  MainMenu. GetChoice; 
end; 

{That’s  all  folks) 

BinoScreen.  Kill; 

CloseGraph; 
end.  {Main  Program) 
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unit  Screens; 


interface 
uses  Graph; 
type 

Screen  =  object 
X.Y  :  integer; 

Is  Visible  :  boolean; 

F :  file; 

MemSize ;  word; 

P  :  pointer; 

constructor  lnit(FileName  :  string); 
procedure  Show(XLoc,  YLoc  ;  integer); 
procedure  Hide; 
destructor  Kill; 

end; 

implementation 

constructor  Screen. lnit(FileName  ;  string); 
begin 

IsVisible  :=  false; 

Assign(F,  FileName);{Prepare  the  file) 

Reset(F,  1  );{for  a  read  operation.) 

MemSize  :=  FileSize(F);{Determine  memory  needed) 

GetMem{P,  MemSize)  ;{and  allocate  the  memory  on  the  heap.) 
BlockRead(F,  P'',  MemSize); {Read  in  the  graphic  pic  file) 
Close(F);{and  close  the  file.) 
end; 

procedure  Screen. Show(XLoc,  YLoc  :  integer); 
begin 

if  not  IsVisible  then 
begin 

X  :=  XLoc; 

Y  :=  YLoc; 

Putlmage(X,Y,P'',CopyPut);{Draw  the  graphics  on  the  screen.) 
IsVisible  :=  true; 
end; 

end; 

procedure  Screen. Hide; 
begin 

if  IsVisible  then 
begin 

Putlmage(X,Y,P'',XorPut);{Turn  all  pixels  off.) 
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IsVisible  :=  false; 
end; 

end; 

destoictor  Screen.  Kill; 
begin 

FreeMem(P,  MemSize);{Free  the  heap  memory.) 
end; 

end. 
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unit  Aircfts; 
interface 

uses  Graph, PCX_TP,SCTeens: 
type 

name  =  string[20]; 

ACData  =  record 
AircraftName  ;  name; 

ExampleOf :  name; 

Exampleinfo  :  name; 

Wings  :  array  [1  ..4]  of  name; 

Wingstnfo  :  array  [1  ..4]  of  name; 

Engine  :  array  [1  ..2]  of  name; 

Engineinfo  :  array  [1..2]  of  name; 

Fuslag  ;  array  [1  ..4]  of  name; 

Fuslaginfo  ;  array  [1  ..4]  of  name; 

Tail :  array  [1  ..5]  of  name; 

Tailinfo  :  array  [1  ..5]  of  name; 
end; 

Aircraft  =  object(Screen) 
vptr :  longint; 

F1  :  text; 

ACInfo  :  ACData; 
constructor  lnit(ACName  :  name); 
procedure  Show(XLoc,YLoc ;  integer); 
procedure  Hide; 
procedure  Kill; 
end; 
var 

retcode  :  integer; 
implementation 

constructor  Aircraft. lnit{ACName  :  name); 
var 

Counter :  integer; 
begin 

IsVisible  :=  false; 

retcode  :=  pcxCreateVirtual(pcxCMM,@vptr.pcxCGA_6, 250,1 10); 
if  (retcode  =  pcxSuccess)  then 
retcode  >  pcxFileVirtual(Concat(ACName,’.pcx’),vptr); 
Assign(F1,Concat(ACName,’.dat’)); 

Reset(FI); 

Readln(F1  ,ACInfo.AircraftName); 
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R©adln(F1  .ACInfo.ExampleOf); 

Readln(F1  .ACInfo.Examplelnfo); 

for  Counter  :=  1  to  4  do 
begin 

Readln(F1  ,ACInfo.Wings[Counter]); 

Readin  (F1 ,  AC  Info .  Wingsinf  o[Counter]) ; 
end; 

for  Counter  1  to  2  do 
begin 

Read1n(F1,ACInfo.Engine(Counter)); 

Readln(F1  .ACInfo.  Engine  lnfo[Counter]) ; 
end; 

for  Counter  >  1  to  4  do 
begin 

Readln(F1,ACInfo.Fuslag{Counterl): 

Readln(F1, ACInfo. Fuslaglnfo(Counter]); 

end; 

for  Counter  :=  1  to  5  do 
begin 

Readln(F1  ,ACInfo.Tail[Counter]); 

Readln(F1,ACInfo.Taillnfo[Counter]): 

end; 

Close{F1); 

end; 

procedure  Aircraft.Show(XLoc,  YLoc  :  integer); 

begin 

if  not  IsVisible  then 
begin 

refcode  :=  pcxSefDisplay(pcxCGA_6); 

X  :=  XLoc; 

Y  :=  YLoc; 

retcode  :=  PCXPutlmage{vptr,pcxXOR,X,Y,0); 

IsVisible  :=  true; 
end; 

end; 

procedure  Aircraft.Hide; 

begin 

if  IsVisible  then 
begin 

retcode  :=  pcxSetDisplay(pcxCGA_6); 

retcode  ;»  PCXPutlmage(vptr.pcxXOR,X,Y,0); 

IsVisible  :« false; 
end; 

end; 

procedure  Aircraft. Kill; 
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begin 

IsVisible  >  false; 

retcode  :=  pcxDestroyVirtual(vptr); 
end; 
end. 
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unit  Dialogs; 
interlace 

uses  Graph,  Screens; 


Dialog  ^  object(Screen) 

OIdP  ;  pointer; 

procedure  Show{XLoc,  YLoc  ;  integer); 
procedure  Hide; 
end; 

implementation 

procedure  Dialog.Show(XLoc,YLoc :  integer); 
begin 

if  not  IsVisible  then 
begin 

X  :=  XLoc; 

Y  ;=  YLoc; 

GetMem(OldP,  MemSize);{Save  the  old  bitmap) 
Getlmage(X.Y,X+200.Y+50,OldP''); 
Putlmage(X,Y,P'',CopyPut);{and  draw  the  new  bitmap.) 
IsVisible  :=  true; 
end; 

end; 

procedure  Dialog. Hide; 
begin 

if  IsVisible  then 
begin 

Putlmage(X,Y,OldP'',CopyPut);{Put  the  old  bitmap  back) 
FreeMem(OldP,  MemSize);(and  free  the  heap  memory.) 
IsVisible  ;>  false; 
end; 

end; 

end. 
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unil  Menus; 


intertace 

uses  CRT,  Graph,  Help; 
type 

name  =  string(201: 

Menu  =  object 
MenuTHIe  ;  string; 

X,Y,Color,Topltem,Selectedltem,HighLjghtedltem ;  integer; 
NumSelections :  integer; 

MenuSelection  :  array[1  ..150]  of  name; 

F  :  text; 

constructor  lnit(FileName  :  name); 
function  GetChoice  ;  name; 
end; 

var 

LastSelection  :  integer; 
implementation 
const 

MaxSelections  =  10; 


var 

Ch  ;  char; 

Counter ;  integer, 

constructor  Menu.lnitjFileName ;  name); 
begin 

Highlighteditem  :=  1 ; 

Selecteditem  ;»  1 ; 

Topitem  ;=  1; 

Counter  :=  0; 

Assign(F,FileName); 

Reset(F); 

Readln(F,MenuTitle); 

ReadInjF.X); 

Readln(F,Y); 

Readln(F,Color); 

while  (not  eof(F))  and  (Counter  <  150)do 
begin 

Counter  ;=  Counter  +  1 ; 
Readln(F,MenuSelection[Counter]); 
end; 
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NumSelections  :=  Counter; 
Close(F): 


function  Menu.GetChoice ;  name; 

procedure  ShowMenu(Selection  :  integer); 
begin 

SetColor(Color); 

SetLineStyle(SolidLn,0,ThickWidth); 

SetWriteMode(CopyPut) ; 

SetT  ext  Justify  (CenterT  ext, Center!  ext) ; 

OutTextX  Y(X.  Y,  MenuTitle) ; 

Counter  >  0; 

while  (Counter  +  Selection  <«  NumSelections)  and 
(Counter  +  Selection  <  Selection  -t-  MaxSelections)  do 
begin 

OutTextXY(X,Counter*8+Y+15,MenuSelection(Counter  +  Selection]); 
Counter  :=  Counter  +  1 ; 
end; 

if  (Selection  >  1 )  and  (Selection  <=  NumSelections  - 10)  then 
OutTextXY(X.Y+100.’PgUp/PgDn’) 
else  if  Selection  >  1  then 
OutTextXY(X,Y+100.’PgUp’) 
else  if  Selection  <=  NumSelections  - 10  then 
OutTextXY(X.Y+100,’PgDn’); 

end; 

procedure  KillMenu; 
begin 

if  Color  <>  0  then 
SetColor(O); 

SetWriteMode(CopyPut); 

Line(X-50.Y-3.X+50.Y-3); 

Line(X-50,Y,X+50.Y); 

Line(X-50,Y+3,X+50.Y+3); 
for  Counter  :=  1  to  10  do 
begin 

Line(X-85,Counter*8+Y+3,X+85,Counter*8+Y+3); 

Line(X-85,Counter*8+Y+6,X+85,Counter*8+Y+6); 

Line(X-85,Counter*8+Y+9,X+85,Counter*8+Y+9); 

end; 

Line(X-35,Y+97.X+35,Y+97); 

Line(X-35,Y+100,X+35,Y+100); 

Line(X-35,  Y+1 03,X+35,Y+1 03); 
end; 

procedure  Highlight(Newltem  :  integer); 
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begin 

SetWriteMode(XorPut) ; 

SetColor(l); 

Line(X-85.HighlightedHem*8+Y+3,X+85,Highlightedltem*8+Y+3); 
Line(X-85,Highlightedttem*8+Y+6.X+85.Highlightedltem*8+Y+6); 
Line(X-85.Highlightedltem*8+Y+9.X+85.Highlightedltem*8+Y+9): 
if  HighUghtedltem  <>  Newitem  then 
begin 

Highlighted  Item  >  Newitem; 

Line{X-85,Newttem*8+Y+3.X+85.Newltem*8+Y+3): 

Une{X-85,Newltem*8+Y+6.X+85.Newltem‘8+Y+6); 

Line(X-85.Newltem*8+Y+9,X+85,Newltem*8+Y+9); 

end; 

end; 

procedure  PageUp; 
begin 

if  Topitem  >  MaxSelections  then 
begin 
Kill  Menu; 

Selecteditem  :*  (Selecteditem  - 10)  - 
(HighUghtedltem  - 1); 

Topitem  :=  Topitem  - 10; 

HighUghtedltem  :=  1 ; 

ShowMenu(T  opitem) ; 

HighHght(Highlightedltem); 

end; 

end; 

procedure  PageDown; 
begin 

if  Topitem  +  MaxSelections  <-  NumSelections  then 
begin 
KillMenu; 

Selecteditem  :» (Selecteditem  + 10)  - 
(HighUghtedltem  - 1); 

Topitem  ;*  Topitem  +  10; 

HighUghtedltem  ;=  1 ; 

ShowMenu(T  opitem) ; 

HighUght(Highlightedltem) ; 
end; 

end; 

procedure  MoveUp; 
begin 

if  HighUghtedltem  >  1  then 
begin 

HighUght(HighUghtedltem  - 1); 
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Selecteditem  :=  Selecteditem  - 1 ; 
end; 

end; 

procedure  MoveDown; 
begin 

if  (Highlighteditem  <  MaxSelections) 
and  (Selecteditem  <  NumSelections)  then 
begin 

Highlight(Highlightedltem -I- 1); 
Selecteditem  >  Selecteditem  +  1 ; 
end; 

end; 

procedure  Getinput; 
begin 

Ch  :=  ReadKey; 

Case  Ch  of 
'h' :  GetHelp; 

chr(80),chr(50) ;  MoveDown; 
chr(72),chr(56)  :  MoveUp; 
chr(81),chr(51) :  PageDown; 
chr(73),chr(57)  :  PageUp; 
end; 
end; 


begin 

ShowMenu(1); 

Highlight(l); 

repeat 

Getinput 

until  (Ch  =  #13)  or  (Ch  =  #27); 

M  Ch  *  #27  then 
GetChoice  ;=  ‘null’ 
else 

GetChoice  :=  MenuSelection[Selectedltem|; 
LastSelection  :=  Selecteditem; 

KillMenu; 

Topitem  :=  1 ; 

Selecteditem  :=  1 ; 

Highlighteditem  ;=  1 ; 
end; 

end. 
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unit  Student; 


interface 

type 

name  =  string  [20]; 

Model  =  object 

StudentName,  Mode,  Level ;  name; 

TestScore :  integer; 

NumShown,  NumMissed :  integer; 

ACArray  :  array  [1  ..150]  of  name; 

MissedArray  :  array  [1..  150]  of  name; 
function  Get :  boolean; 

procedure  Update{StuName  :  name;NewMode :  name;  NewLevel :  name;  NewScore  :  integer); 
procedure  Save; 

function  GetEntry(MaxNum  ;  integer) ;  integer; 
function  AddEntry(ACName  :  name;  MaxNum  :integer) :  boolean; 
procedure  Kill; 
end; 

var 

StudentModel :  Model; 


implementation 

uses  DOS,  CRT.  Graph,  Dialogs; 
var 

FileName  :  name; 

Deleted  ;  boolean; 

F  :  text; 

S  ;  pathstr; 

Ch  :  char; 

Counter :  integer; 

DialogScreen  :  Dialog; 

function  Model. GetEntry(MaxNum  :  integer) :  integer; 
begin 

Randomize; 

Counter :«  1 ; 

while  (StudentModel.ACArray[Counter]  =  ")  and  (Counter  <*  MaxNum)  do 
Counter  :=  Counter  +  1 ; 
if  Counter  <  MaxNum  then 
begin 

Counter  >  Random(MaxNum  - 1); 
while  StudentModel.ACArray[Counler  +  1]  =  "  do 
Counter  :=  Random(MaxNum); 
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GetEntry  >  Counter  +  1 ; 
end 

else  GetEntry  ;*  0; 
end; 

function  Model.AddEntry(ACName  :  name;  MaixNum  :  integer) :  boolean; 
begin 

Counter :» 1 ; 

while  (StudentModel.MissedArraytCounter)  <>  ")  and  (Counter  <-  MaxNum+1)  do 
Counter  :=  Counter  +  1 ; 
if  Counter  <=  MaxNum  then 
begin 

StudentModel.MissedArray[Counter)  :=  ACName; 

AddEntry  ;=  true; 
end 

else  AddEntry  ;=  false; 
end; 

function  Model.Get ;  boolean; 
const 

ALPHA  =  [•A’..’Z’,’a’..’2’l; 

NUM  =[‘0’..’9’]; 
begin  (GetStudentModel) 

Deleted  :=  false; 

FileName  := "; 

Counter  :=  1 ; 

DialogScreen.lnit('Model.dlg’); 

DialogScreen.Show{220,25); 
white  Counter  <*  6  do 
begin 

Ch  :=  ReadKey; 

if  (Counter  =  1)  and  (Ch  in  ALPHA)  then 
begin 

OutTextX  Y(290+ 1 0‘Counter,68.Ch) ; 

FileName  :*  Concat(FileName,Ch); 

Counter  :=  Counter  +  1 ; 
end 

else  if  (Counter  >  1 )  and  (Counter  <  6)  and  (Ch  in  NUM)  then 
begin 

OutTextXY(290+10*Counter.68,Ch); 

FileName  :=  Concat(FileName,Ch); 

Counter  :=  Counter  +  1 ; 
end 

else  if  (Ch  -  #8)  arid  (Counter  >  1)  then 
begin 

SetColor(1); 

Line(275+10*Counter,64, 285+1 0*Counter, 64); 
Line(275+10*Counter,67,285+10*Counter.67); 
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Line(275+1O*Counter,7O,205+1O*Counter,7O): 

Counter  >  Counter  - 1 ; 

FileName  :=  Copy(FileName,1, Counter-1); 

SetColor(O); 

end 

else  if  (Counter  >  6)  and  (Ch  »  #13)  then 
Counter  :=  Counter  +  1 
else 
begin 

Sound(440): 

Delay(IOO). 

NoSound; 

end; 

end; 

Dialog  Screen. Hide; 

DialogScreen.Kill; 

S  :=  FSearch('.’,Concat(FileName,'.mdr)); 
if  S  =  "  then 
begin 

Get  ;=  false; 

Exit; 

end 

else 

begin 

Assign(F,Concat(FileName,’.mdr)); 

Reset(F); 

Readln(F,StudentModel.StudentName); 

Readln(F,StudentModel.Mode); 

Readln(F,StudentModel.Level); 

Readin  (F ,  StudentModel  .TestScore) ; 

Readin  ( F,  StudentModel .  NumSho  wn) ; 

Readln(F, StudentModel.  NumMissed) ; 
for  Counter  ;*  1  to  1 50  do 

Readln(  F ,  StudentModel  .AC  Array  [Counter]) ; 
for  Counter  :=  1  to  1 50  do 

Readln(F,StudentModel.MissedArray(Counter]); 

Close(F); 

end; 

Get  ;=  true; 

end;  {GetStudentModel} 

procedure  Model. Update(StuName  :  name;  NewMode  ;  name;  NewLevel  :  name;  NewScore  : 
integer); 
begin  {Update} 
if  NewLevel  =  'Novice'  then 
Assign(F,’Novice.def’) 
else 

Assign(F,'lntermed.def'); 
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Reset(F); 

Readln(F,StudentModel.StudentName): 

Readln(F,StudentModel.Mode); 

Readln(F,  StudentModel.  Level) ; 
Readln(F,StudentModel.TestScore) ; 

Readln(F, StudentModel. NumShown); 

Readln(F, StudentModel. NumMissed); 
for  Counter  ;=  1  to  1 50  do 

Readln(F, StudentModel.  ACArray[Counter]); 
for  Counter  :=  1  to  1 50  do 

Readln(F, StudentModel. MissedArray[Counter|); 

Close(F); 

StudentModel. StudentName  ;=  StuName; 

StudentModel. Mode  :=  NewMode; 

StudentModel. Level  :=  NewLevel; 

StudentModel.TestScore  :=  NewScore; 
end;  {Update} 

procedure  Model.Save; 
begin 

if  not  Deleted  then 
begin 

Assign(F,Concat(FileName,’.mdr)); 

Rewrite(F); 

Writeln(RStudentModel.StudentName); 

Writeln(F, StudentModel.  Mode); 

Writeln(F, StudentModel. Level); 

Writein  (F, StudentModel  .T  estScore) ; 

Writeln(F, StudentModel. NumShown); 
Writeln(F,StudentModel.NumMissed); 
for  Counter  :=  1  to  1 50  do 

Writeln(F, StudentModel.  ACArray(Counter)); 
for  Counter  .=  1  to  1 50  do 

Writeln(F, StudentModel.  MissedArray[Counter]); 
Close(F); 
end, 

end; 

procedure  Model. Kill; 
begin 

Exec('\COMMAND.COM',Concat(7C  del  '.FileName.’.mdl')); 
Deleted  :=  true, 
end; 

end. 
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unit  Tutor; 


interface 

procedure  TutorSession; 
implementation 

uses  CRT,  Graph,  Student,  Airctts,  Dialogs,  Menus,  Help: 
type 

name  =  string[20]: 
var 

Counterf ,  Counter2,  Counters,  MaxNum,  ChoiceNum,  Score  :  integer; 

Comparison  :  real; 

Ch  :  char; 

LeftAC,  RightAC  :  Aircraft; 

DialogScreen  ;  array  [1..5]  of  Dialog; 

WEFTMenu  ;  Menu; 

StuName,  Choice,  FourthCh  :  name; 

CorrectAnswer,  CloseAnswer,  Done  :  boolean; 

procedure  ShowFeature(Feature  ;  name); 
begin  {ShowFeature} 
if  Feature  <>  "  then 
begin 

DialogScreen[4].lnil(Concat(Feature,’.dlg’)); 

DialogScreen[4j.Show{1 0,30); 

Ch  :==  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  :=  ReadKey: 
end; 

DialogScreen[4]  Hide; 

DialogScreen[4].Kill; 

end; 

end;  {ShowFeature) 

function  CompareAircraft :  real; 
begin  (CompareAircraft) 

Comparison  :=  0; 

Counters  :=  0; 

for  Counter2  :=  1  to  4  do 

if  (LeftAC.ACInfo.Wings[Ccunter2]  <>  ")  and 
(RightAC.ACInfo.Wings[Counter2]  <>  ‘’)  then 
if  LeftAC.ACInfo.Wings[Counter2J  *  RightAC.ACInfo.Wings[Counter2]  then 
begin 
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Comparison  >  Comparison  +  1 ; 
lnc(Counter3); 
end 

else  lnc(Counter3); 
for  Counter2  :=  1  to  2  do 
if  {LeftAC.ACInfo.EngineICounter2)  <>  *’)  and 
(RightAC.ACInfo.Engine[Counter2]  <>  ")  then 
if  LeftAC.ACInfo.Engine[Counter2]  =  RightAC.ACInfo.Engine[Counter2]  then 
begin 

Comparison  :*  Comparison  +  1 ; 
lnc(Counter3): 
end 

else  lnc(Counter3): 
for  Counter2  :=  1  to  4  do 
if  (LeftAC.ACInfo.Fuslag(Counter21  <>  ")  and 
(RightAC.ACInfo.Fuslag[Counter2]  <>  ")  then 
if  LeftAC.ACInfo.Fuslag[Counter2)  *  RightAC.ACInfo.Fuslag[Counter2]  then 
begin 

Comparison  :=  Comparison  +  1 ; 
lnc{Counter3); 
end 

else  lnc(Counter3): 
for  Counter2  :=  1  to  5  do 
if  (LeftAC.ACInfo.Tail[Counter2]  <>  ")  and 
(RightAC.ACInfo.Tail[Counter2]  <>  ")  then 
if  LeftAC.ACInfo.Tail(Counter2]  =  RightAC.ACInfo.Tail[Counter2]  then 
begin 

Comparison  :=  Comparison  +  1 ; 
lnc(Counter3); 
end 

else  lnc(Counter3); 

CompareAircraft  :=  Comparison/Counter3; 
end;  {CompareAircraft) 

procedure  Diagnose; 
const 

ALPHA  =  ['A’..’Z’,’a’..’z']; 
begin 

StudentModel.Mode  ;=  ‘Diagnose’; 

StuName  := 

Counterl  :=  1; 

SetColor{1); 

DialogScreen[1  ] ,  Init('GetName.dlg') ; 

DialogScreen(1].Show(220,25); 

Line(220, 64, 420,64); 

Line(220,67,420,67); 

Line(220.70,420,70); 

while  {Ch  <>  #13)  and  (Counterl  <  21)  do 
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begin 

Ch  >  ReadKey; 
if  Ch  =  chr(32)  then 
begin 

StuName  :=  Concat(StuName,chr(32)); 

Countert  :=  Counterl  +  1 ; 
end; 

if  Ch  in  ALPHA  then 
begin 

SetColor(O); 

OutTextX  Y(225+ 1 0*Counter1 .68. Ch) ; 

StuName  :=  Concat(StuName.Ch); 

Counter!  ;*  Counterl  +  1 ; 

SetColor(1); 

end; 

if  (Ch  =  #8)  and  (Counterl  >  1)  then 
begin 

SetColor(1); 

Line(2 10+10*  Counterl  ,64,220+1 0‘Counterl  ,64) ; 
Line(2 10+10*  Counterl  ,67,220+ 1 0*Counter1 .67) ; 
Line(21 0+ 1 0*Counter1 ,70,220+1 0*Counter1 ,70) ; 
Counterl  ;=  Counterl  - 1 ; 

StuName  ;=  Copy(StuName,1, Counterl -1); 
SetColor(O); 
end; 

end; 

DialogScreen[  1  ] .  Hide ; 

DialogScreenjij.Kill; 

SetColor(O); 

StudentModel.Update(StuName,Teach’.’Novice’,0); 
StudentModel.Mode  :=  ‘Diagnose’; 

MaxNum  :=  75; 

Counters  :=  0; 

DialogScreen[1].lnit('Welcome.dlg’); 

DialogScreen[lj.Show(220,25); 

Ch  :=  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[1  ] .  Hide ; 

DialogScreen[1  j .  Kill ; 
if  Ch  =  #27  then  Exit; 

DialogScreen[1].lnit('Diagnose.dlg’); 

DialogScreen[1  i.Show(220,25) ; 

Ch  ;=  ReadKey; 
while  Ch  =  ‘h’  do 
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begin 

GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[1  ] .  Hide ; 

DialogScreen{l  j.  Kill; 
if  Ch  -  #27  then  Exit; 
for  Counter2  :*  1  to  10  do 
begin 

Counterl  :=  StudentModel.GetEntry(MaxNum); 
if  StudentModel.ACArray(Counter1]  <>  "  then 
begin 

LeftAC.  InitfStudentModel.  ACArray[Counter1  ]) ; 
if  LeftAC.ACInfo.ExampleInfo  <>  "  then 
begin 

LeftAC.Show(25.72); 

WEFTMenu.lnit(Concat(Copy(LeftAC.ACInfo.Examplelnfo,1,5),’.nnnu’)) 
Choice  ;=  WEFTMenu.GetChoice; 
if  Choice  =  ‘null’  then 
begin 

LeftAC.Hide; 

LeftAC.Kill; 

Counters  :=  Counters  +  1 ; 

Exit; 

end; 

if  Choice  <>  LeftAC.ACInfo.ExampleOf  then 
begin 

Counters  :=  Counters  +  1 ; 

SoundflOO); 

Delay(200); 

NoSound; 

end; 

LeftAC.Hide; 

end; 

LeftAC.Kill; 

end; 

GoToXY(1,1); 

end; 

if  Counters  <=  1  then 

StudentModel.UpdatefStuName, Teach’, ‘Intermediate’, 0) 
else  StudentModel.Update(StuName,'Teach’,’Novice’,0); 
end; 

procedure  Teach; 
begin  {Teach} 

Ch  :=#1S; 

if  StudentModel. Level  =  ‘Novice’  then 
MaxNum  :=  75 
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else  MaxNum  ;»  1 50; 
if  StudentModel.  Level  >  ‘Novice’  then 
DialogScreen{1].lnH('TeaNov.dlg’) 
else  DialogScreen[1].lnit(Tealnt.dlg’); 

DialogScfeen[1  ].Show{220,25) ; 

Ch  :«  ReadKey: 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen(1  ].Hide; 

DialogScreen[l  j .  Kill; 
if  Ch  *  #27  then  Exit; 

for  Counterl  >  StudentModel.NumShown  to  MaxNum  do 
if  StudentModel  Level  -  ‘Novice’  then 
begin 

if  StudentModel.ACArray[Counter11  <>  "  then 
begin 

LeftAC .  lnit(StudentModel .  AC  Array[Counter1  ]) ; 
if  LeftAC.ACInfo.ExampleInfo  <>  "  then 
begin 

LeftAC.Show(25.72); 

ShowFeature  ( LeftAC.  ACInfo .  Example  Inf  o) ; 

LeftAC.Hide; 

end; 

LeftAC.Kill; 

if  Ch  =  #27  then  Exit; 

IncfStudentModel .  NumShown); 
end; 
end 
else 
begin 

if  StudentModel.ACArray[Counter1]  <>  "  then 
begin 

LeftAC. lnit(StudentModel.ACArray{Counter1]); 

LeftAC.Show(25,72); 

DialogScreen[2].lnit(Concat(Copy(StudentModel.ACArray[Counter1],1,4).’.nam’)) 
DialogScreen[2].  Show(50, 1 79) ; 
for  Counter2  :=  1  to  4  do 
-■*  Ch  <>  #27  then 

ShowFeature(LeftAC.ACInfo.Wingslnfo[Counter2]); 
for  Counter2  :=  1  to  2  do 
if  Ch  <>  #27  then 

ShowFeature(LeftAC.ACInfo.Enginelnfo(Counter2]); 
for  Counter2  >  1  to  4  do 
if  Ch  <>  #27  then 

ShowFeature(LeftAC.ACInfo.Fuslaglnfo[Counter2]); 
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for  Counter2  :=  1  to  5  do 
if  Ch  <>  #27  then 

ShowFeature(LeftAC.ACInfo.Taillnfo[Counter2]): 
DjalogScreen[2].  Hide; 

LeftAC.Hide; 

DialogScreen[2] .  Kill ; 

LeftAC.Kill; 
if  Ch  »  #27  then  Exit; 
lnc(StudentModel .  NumShown); 
end; 

end; 

StudentModel. NumShown  MaxNum; 

end;  {Teach} 

procedure  ReviewNovice; 
begin  {ReviewNovice} 

MaxNum  :=  75; 

Done  false; 

DialogScreen}  1 1 .  lnit(‘Return.dlg’) ; 

Dialog  Screen{1  ].Show(220, 25) ; 

Ch  :«  ReadKey; 
while  Ch  =  'h'  do 
begin 
QetHelp: 

Ch  :=  ReadKey; 
end; 

DialogScreen{1).Hide; 

DialogScreenjf  ] .  Kill ; 
if  Ch  =  #27  then  Exit; 

DiaiogScreentI  1  .lnit(‘RevNov.dlg’) ; 

Dialog  Screen(lj.Show(220, 25); 

Ch  :=  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp: 

Ch  :=  ReadKey; 
end; 

DialogScreen[  1  ] .  Hide ; 

DialogScreen(1  j .  Kill ; 
if  Ch  =  #27  then  Exit; 

Counterl  >  StudentModel. GetEntry(MaxNum); 
while  (Counterl  <>  0)  and  (Done  -i  false)  do 
begin 

LeftAC .  lnit(StudentModel.  AC  Array{Counter1  ]) ; 
if  LeftAC.ACInfo.ExampleInfo  <>  "  then 
begin 

LeftAC.Show(25.72); 

WEFTMenu.lnit(Concat(Copy(LeftAC.ACInfo.Examplelnfo,1,5),'.mnu')); 
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Choice  >  WEFTMenu.GetChoice; 
if  Choice  «  LeftAC.ACInfo.ExsunpleOf  then 
begin 

StudentModef.ACArrayJCounterl]  > 

DialogScreen[1].lnit{Concat(‘Correct’,Chr(Random(10)+48),’.dlg’)); 
DialogScreen[1  ] .  Show(220,25) ; 

Ch  :=  ReadKey; 
while  Ch  >  ‘h’  do 
begin 
GetHelp; 

Ch  :«  ReadKey; 
end; 

Dialog  Screen[1  ].Hide; 

DialogScreen[1  j.Kill; 
end 

else  if  Choice  <>  ‘null’  then 
begin 

if  StudentModel.AddEntry(StudentModel.ACArray[Counter1],  MaxNum)  ■  false 

then 

Done  :=  tme; 

DialogScreen[1I.lnit{Concat(‘Wrong’,Chr(Random(10)+48),’.dlg')); 
DialogScreen[1  ].Show{220,25); 

ShowFeature(LeftAC.ACInfo.Examplelnfo): 
if  Ch  «  ‘h’  then 


GetHelp; 

DialogScreen[1  ].Hide; 
DialogScreen[1  j.Kill; 
end; 

LeftAC.Hide; 

end 

else  StudentModel.ACAn'ayfCounterl] :«  "; 
LeftAC.Kill; 

if  (Ch  =  #27)  or  (Choice  =  ‘null’)  then  Exit; 
Counterl  :=  StudentModel.GetEntry{MaxNum); 
end; 

Done  ;*  true; 
end;  {ReviewNovice} 


procedure  Reviewintermediate; 

procedure  HandleCorrectIntermediate; 
begin  {HandleCorrectIntermediate} 

Dialog  Screen[1l.lnit(Concat('Conrect’,Chr(Random(10)+48), ’.dig’)); 
DialogScreen(1J.Show(220.25); 

DialogScreen[2i .  lnit(Concat(Copy  (StudentModel.  AC  Array  [Counterl  1 , 1 ,4) nam' )) ; 
DialogScreen(2j.Show(50, 1 79); 

StudentModel.ACArray[Counter1] 

Ch  ReadKey; 
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while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  :«  ReadKey; 
end; 

DialogScreen[2] .  H  ide ; 

DialogScreen[2] .  Kill ; 

DialogScreen[1  j.Hide; 

DialogScreen[1  j.Kill; 
end;  {HandleCorrectIntermediate} 

procedure  HancfleCloseIntermediate; 
begin  {HandleCloseIntermediate} 

RightAC.Show{365,72); 

DialogScreenj  1  ].  lnH(‘Close.dlg') ; 

DialogScreenp  ].Show(220,25); 

Ch  :=  Readkey; 

H  Ch  =  ‘h’  then 
GetHelp; 

DialogScreen[  1  ] .  Hide ; 

DialogScreenjl  j.Kill; 
if  Ch  =  #27  then 
Exit; 

Dialog  Screen[1].lnit{‘Compare.dlg’); 

DialogScreenj  1 ) .  Sho  w(220 , 25) ; 

DialogScreen|2i.lnit(Concat(Copy(StudentModel.ACArray(Counter1J,1,4),’.nam')); 
if  Copy(Choice,4,1 )  =  “  then 

DialogScreen(3).lnit(Concat(Copy(Choice.1.3),’_’,’.nam’)) 
else  DialogScreen(3].lnit(Concat(Copy(Choice,1 ,4),’.nam’)); 
DialogScreen(2).Show(50. 1 79) ; 

DialogScreen|3i.  Show{390, 179); 

Ch  :=  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

for  Counter2  ;=  1  to  4  do 

if  (LeftAC.ACInfo.Wings(Counter21  <>  ")  and  (Ch  <>  #27)  and 
(RightAC.ACInfo.Wings[Counter2]  <>  ")  then 
if  LeftAC.ACInfo.Wings[Counter2J  <>  RightAC.ACInfo.Wings[Counter2]  then 
begin 

DialogScreenI4].lnit(Concat(LeftAC.ACInfo.Wingslnfo[Counter2],’.dlg’)); 
Dialog  Screenj5j.lnit(Concat(RightAC.ACInfo.Wingslnfo[Counter2],’. dig’)); 
DialogScreen[4] .  Show(  1 0 ,30) ; 

DialogScreen[5j.Show(430,30); 

Ch  :■  ReadKey; 
while  Ch  =  ‘h’  do 
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begin 

GetHelp: 

Ch  :=  ReadKey: 
end; 

DialogScreen  [5] .  Hide ; 

DialogScreeni4] .  Hide ; 

DialogScreen[5j .  Kill; 

DialogScreen[4i .  Kill ; 
end; 

for  Counter2  :»  1  to  2  do 

if  (LeftAC.ACInfo.EngineICounter2J  <>  ")  and  (Ch  <>  #27)  and 
(RightAC.ACInfo.Engine{Counter2]  <>  *’)  then 
if  LeftAC.ACInfo.Engine(Counter2]  <>  RightAC.ACInfo.Engine[Counter2]  then 
begin 

Dialog  Screen(4].lnit(Concat(LeftAC.ACInfo.Enginelnfo[Counter2], '.dig')); 
OialogScreen{5i.lnit(Concat(RightAC.ACInfo.Enginelnfo[Counter2],'.dlg')); 
DialogScreen[4].Show(1 0,30); 

DialogScreen[5i.Show(430,30); 

Ch  ;=  ReadKey; 
while  Ch  »  'h'  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[5] .  Hide ; 

DialogScreen[4j .  Hide ; 

DialogScreenisj.Kill; 

DialogScreen[4] .  Kill ; 
end; 

for  Counter2  :=  1  to  4  do 

if  (LeftAC.ACInfo.Fuslag[Counter2]  <>  ")  and  (Ch  <>  #27)  and 
(RightAC.ACInfo.Fuslag(Counter2]  <>  ")  then 
if  LeftAC.ACInfo.Fuslag[Counter2]  <>  RightAC.ACInfo.Fuslag[Counter2]  then 
begin 

DialogScreen[4].lnit(Concat(LeftAC.ACInfo.Fuslaglnfo[Counter2],’.dlg’)); 
DialogScreen[5].lnit(Concat(RightAC.ACInfo.Fuslaglnfo[Counter2],'.dlg)); 
DialogScreen[4l.Show(1 0,30); 

DialogScreen|5i.Show(430,30); 

Ch  :=  ReadKey; 
while  Ch  -  'h'  do 
begin 
GetHelp; 

Ch  ;«  ReadKey; 
end; 

DlalogScreen[5] .  Hide ; 

DialogScreen|4J .  Hide ; 

DialogScreenisj.Kill; 

Dial  ogScreen[4j.  Kill; 
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end; 

for  Counter2  :=  1  to  5  do 

if  (LeftAC.ACInfo.Tail[Counter2]  <>  “)  and  (Ch  <>  #27)  and 
(RightAC.ACInfo.Tail[Counter2]  <>  ")  then 
if  LeftAC.ACInfo.Tail[Counter2]  <>  RightAC.ACInfo.Ta:llCounter2]  then 
begin 

DialogScreen[41.lnK{Concat(LeftAC.ACInfo.Taillnfo[Connter2],’.dlg’)); 
DialogScreen[5].lnit(Concat(RightAC.ACInfo.Taillnfo[Counter2],’.cRg')); 
DiaiogScreen[4].Show(1 0,30); 

DialogScreen[5].  Show(430,30) ; 

Ch  :=  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  ReadKey; 
end; 

DialogSaeen[5] .  Hide ; 

DialogScreen[4].Hide; 

DialogScreen[5j.Kill; 

DialogScreen[4j .  Kill ; 
end; 

DialogScreen[1].Hide; 

DialogScreen[1  j .  Kill ; 

DialogScreen[2] .  Hide ; 

OialogScreen[2] .  Kill ; 

DialogScreen[3] .  Hide ; 

DialogScreen[3].  Kill; 

RightAC.Hide; 

end;  {HandleCloseIntermediate} 

procedure  HandleWrongIntermediate; 
begin  {HandleWrongIntermediate) 

DialogScreen[1  ].  lnit(Concat(‘Wrong',Chr(Random(1 0)+48),’.dlg’)) ; 

DialogScreen[1  ].Show(220,25) ; 

Ch  :=  Readkey; 
if  Ch  *  ‘h’  then 
GetHelp; 

DialogScreen(1  j.Hide; 

DialogScreen[1  j .  Kill ; 
if  Ch  =  #27  then  Exit; 

DialogScreen[1].lnit(‘ldWEFT.dlg'); 

DialogScreen[1].Show(220,25); 

DialogScreen[2j.lnit(Concat(Copy(StudentModel.ACArray[Counter1],1,4),’.nam’)); 
DialogScreen[2j  .Sho  w( 50 , 1 79) ; 

Ch  >  ReadKey; 
while  Ch  »  'h'  do 
begin 
GetHelp; 
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Ch  :»  ReadKey: 
end; 

DialogScreen[1  ].Hide; 

DialogScreenjl  j .  Kill ; 
for  Counter2  :=  1  to  4  do 

if  (LeftAC.ACInfo.Wings(Counter2l  <>  ")  and  (Ch  <>  #27)  then 
begin 

WEFTMenu.lnit(Concat(Copy(LeftAC.ACInfo.Wingslnfo(Counter2],1,5),’.mnu')): 
Choice  :=  WEFTMenu.GetCholce; 
if  Choice  =  LeftAC.ACInfo.Wings[Counter2]  then 
begin 

DialogScreen[1].lnit(Concat(‘Correct’,Chr(Random(10)+48),’.dlg')); 
DialogScreen[1  ].Show(220,25); 

Ch  >  ReadKey; 
while  Ch  -  ‘h’  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[1  ].  Hide; 

DialogScreen[1].Kill; 

end 

else  if  Choice  <>  ‘null’  then 
begin 

DialogScreen[1].lnit{Concat(‘Wrong’,Chr(Random{10)+48),’.dlg')); 
DialogScreen(1  ].Show(220,25); 
ShowFeature{LeftAC.ACInfo.Wingslnfo[Counter2]); 

DialogScreen[l  ].Hide; 

DialogScreenjl]. Kill; 
end 

else  Ch  :=  #27; 
end; 

for  Counter2  :=  1  to  2  do 

if  (LeftAC.ACInfo.Engine[Counter2]  <>  ")  and  (Ch  <>  #27)  then 
begin 

WEFTMenu .  lnit(Concat(Copy  (LeftAC.  ACInfo.  Enginelnfo[Counter2] ,  1 ,5)  ,’.mnu')) ; 
Choice  :=  WEFTMenu. GetChoice; 
if  Choice  -  LeftAC.ACInfo.Engine[Counter2]  then 
begin 

DialogScreen(1].lnit(Concat('Correct’.Chr(Random(10)+48),’.dlg’)); 
DialogScreen[1  ].Show(220,25); 

Ch  :=  ReadKey; 
while  Ch  =■  ‘h’  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen(1].Hide; 
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DialogScreen[1  ] .  Kill; 
end 

else  if  Choice  <>  'null'  then 
begin 

DialogScreen[1].lnit(Concat('Wrong’,Chr(Random(10)+48),’.dlg’)): 
DialogScreen[1  ].Show(220,25); 
ShowFeature(LeftAC.ACInfo.Enginelnfo(Counter2]); 

DialogScreen[1  ].Hide; 

DialogScreenif  ].  Kill; 
end 

else  Ch  :=  #27; 
end; 

for  Counter2  ;=  1  to  4  do 

if  (LeftAC.ACInfo.Fuslag[Counter2)  <>  “)  and  (Ch  <>  #27)  then 
begin 

WEFTMenu.lnlt(Concat(Copy(LeftAC.ACInfo.Fuslaglnfo[Counter2],1,5),’.mnu’)); 
Choice  WEFTMenu.GetChoice; 
if  Choice  =  LeftAC.ACInfo.Fuslag[Counter2]  then 
begin 

DialogScreen[1].lnit(Concat(‘Correct’,Chr(Random(10)+48),’.dlg’)); 
DialogScreen[1  ].Show(220,25); 

Ch  :=  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  ;*=  ReadKey; 
end; 

DialogScreen[  1  ] .  Hide ; 

DialogScreen[l].Kill; 

end 

else  if  Choice  <>  ‘null’  then 
begin 

DialogScreen[1].lnit(Concat('Wrong’,Chr(Random{10)+48),’.dlg’)); 
DialogScreen[1  ].Show(220,25); 
ShowFeature(LeftAC.ACInfo.Fuslaglnfo[Counter2]); 

DialogScreen[1  ] .  Hide; 

DialogScreen[lj.Kill; 

end 

else  Ch  :=  #27; 
end; 

for  Counter2  :=  1  to  5  do 

if  (LeftAC.ACInfo.Tail[Counter2]  <>  ")  and  (Ch  <>  #27)  then 
begin 

WEFTMenu.lnit(Concat(Copy{LeftAC.ACInfo.Taillnfo[Counter2],1 ,5),’.mnu’)); 
Choice  :=  WEFTMenu.GetChoice; 
if  Choice  =  LeftAC.ACInfo.TailICounter2]  then 
begin 

DialogScreen[1].lnit(Concat('Correct’,Chr(Random(10)+48),’.dlg’)); 


75 


DialogScreen[1  ].Show(220,25); 

Ch  :=  ReadKey; 
while  Ch  »  'h'  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen['!  J.Hide; 

DialogScreen[1  ].  Kill; 
end 

else  if  Choice  <>  ‘null’  then 
begin 

D'alogScreen{1].lnit(Concat(‘Wrong’.Chr(Random(10)+48),’.dlg’)); 
L.dlogScreen|1  ].Show{220,25); 
ShowFeature(LeftAC.ACInfo.TaillnfolCounter2]); 

DialogScreen[1  ].Hide; 

DialogScreen[1].Kill; 

end 

else  Ch  :=  #27; 
end; 

DialogScreen[2] .  Hide ; 

DialogScreen(2] .  Kill ; 
end;  {Handle Wrong  Intermediate} 

begin  (Peviewlntermediate) 

MaxNum  :=  1 50; 

Ch  :=  #13; 

Done  ;=  false; 

DialogScreeni  1  ].  I  nit(‘  Return  dig  ) ; 

DialogScreen[1].Show(220,25); 

Ch  >  ReadKey; 
while  Ch  =  'h'  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreeni  1  ] .  H  ide ; 

DialogScreen[1].Kill; 
if  Ch  =  #27  then  Exit; 

DialogScreen[1  ].  Init('Revlnt.dlg’) ; 

DialogScreeni  1  ].Show(220.25) ; 

Ch  ;=  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[1].Hide; 


76 


DialogScreen[1].Kill: 
if  Ch  =  #27  then  Exit; 

Counter!  :=  StudentModel.GetEntry(MaxNum); 
while  (Counterl  <>  0)  and  (Done  =  false)  do 
begin 

LeftAC.  lnit(StudentModel .  AC  ArrayfCounterl  ]) ; 

WEFTMenu.lnitCWEFT.mnu’); 

CorrectAnswer  ;=  false; 

CloseAnswer  :=  false; 

LeftAC.Show(25,72); 

Choice  :=  WEFTMenu.GetChoice; 
if  Choice  *  ‘null’  then 
begin 

LeftAC.Hide; 

LeftAC.Kill; 

Exit; 

end; 

if  Choice  =  LeftAC. ACInfo.AircraftName  then 
HandleCorrectIntermediate 
else 
begin 

if  Copy(Choice,4,1)  =  ‘  ‘  then 

RightAC.Init(Concat(Copy(Choice,1,3),’_’,Copy(StudentModel.ACArray[Counter1],5,3))) 
elseRightAC.Init(Concat(Copy{Choice.1,4),Copy(StudentModel.ACAn'ay[Counter1],5,3))); 
if  CompareAircraft  >=  0.7  then 
HandleCloselntermediate 
else 
begin 

HandleWrongIntermediate; 

if  StudentModel.AddEntry{StudentModel.ACArray[Counter1],  MaxNum)  =  false 

then 


Done  :=  true; 

end; 

RightAC.Hide; 

RightAC.Kill; 

end; 

GoToXY(1,1); 

LeftAC.Hide, 

LeftAC.Kill; 

if  Ch  =  #27  then  Exit; 

Counterl  :=  StudentModel.GetEntry(MaxNum); 
end; 

Done  :=  true; 

end;  {Reviewintermediate) 


procedure  ReviewExpert; 
var 

Feature  ;  array  [1  ..16]  of  name; 
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begin  {ReviewExpert} 

MaxNum  ;=  150; 

Ch  ;=  #13; 

Done  :=  false; 

DialogScreen[1].lnit(‘Retum.dlg’); 

DiaiogScreen[1  l.Show(220,25) ; 

Ch  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GefHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[1  ] .  Hide ; 

DialogScreenjl  ] .  Kill ; 

H  Ch  =  #27  then  Exit; 

DialogScr9en(1].lnit(‘RevExp.dlg’); 

DialogScreenjl  ].Show(220, 25) ; 

Ch  ;=  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[1  J.Hide; 

DialogScreenjl]. Kill; 
it  Ch  =  #27  then  Exit; 

Counterl  :=  StudentModel.GetEntry(MaxNum); 
while  (Counterl  <>  0)  and  (Done  =  false)  do 
begin 

Counters  :=  1 ; 

LeftAC.  lnit(StudentModel .  AC  Array(Counter1  ]) ; 

WEFTMenu.lnitCWEFT.mnu); 

tor  Counter2  ;=  1  to  4  do 

it  LeftAC  .AC  Into.  Wingslnto(Counter2]  <>  "  then 
begin 

Feature(Counter3]  ;=  LeftAC.ACInto.Wingslnto[Counter2]; 
Counters  ;=  Counters  +  1 ; 
end; 

tor  Counter2  :=  1  to  2  do 

it  LeftAC. ACInto.Enginelnto(Counter2]  <>  "  then 
begin 

Feature[Counter3]  :=  LeftAC. ACInto.Enginelnto[Counter2]; 
Counters  ;=  Counters  +  1 ; 
end; 

tor  Counter2  :=  1  to  4  do 

it  LeftAC. ACInto.Fuslaglnfo[Counter2]  <>  "  then 
begin 

FeaturelCounterS]  :=  LeftAC.ACInfo.Fuslaglnto[Counter2]; 
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Counters  :=■  Counters  +  1 ; 
end; 

for  Counter2  :=  1  to  5  do 
if  LeftAC.ACInfo.Taillnfo[Counter2)  <>  "  then 
begin 

Feature[CounterS]  :=  LeftAC.ACInfo.Taillnfo[Counter2]; 

Counters  :=  Counters  +  1 ; 
end; 

Counter2  :=  1 ; 

Ch  ;=  #8; 

while  Ch  <>  #13  do 
begin 

ShowFeature(Feature[Counter21); 
if  (Ch  =  ■-’)  and  (Counter2  >  1)  then 
Counters  Counters  - 1 
else  if  (Ch  =  and  (Counters  =  1)  then 
Counters  Counters  - 1 

else  if  (Ch  =  '+’)  and  (Counters  <  Counters  - 1)  then 
Counters  :=  Counters  +  1 

else  if  (Ch  =  '+’)  and  (Counters  =  Counters  - 1 )  then 
Counters  :=  1 
else  if  Ch  =  #S7  then  Exit 
else 
begin 

Sound(440); 

Delay(SOO); 

NoSound; 

end; 

end; 

Choice  :=  WEFTMenu.GetChoice; 
if  Choice  =  'null'  then 
Exit; 

DialogScreen[S].lnit(Concat(Copy(StudentModel.ACArray[Counter1],1,4),’.nam')) 

LettAC.Show(S5,72); 

DialogScreen[S].Show(50.179); 
if  Choice  =  LeftAC.ACInfo.AircraftName  then 
begin 

DialogScreen[1].lnit(Concat('Correct’.Chr(Random(10)+48),’.dlg')); 

DialogScreen[1].Show(SS0,S5); 

SfudentModel.ACArray(Counter1]  ;= 

Ch  :=  ReadKey: 
while  Ch  =  'h’  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[1  ].  Hide; 

DialogScreen[1].Kill; 
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end 

else 

begin 

DialogScreen[1].lnit(Concat(‘Wrong',Chr(Random(10)+48),’.dlg')): 
DialogScreen[1].Show(220,25); 
if  Copy(Choice,4,1)  =  ' '  then 
begin 

RightAC.Init(Concat(Copy(Choice,1,3),’_’,Copy(StudentModel.ACArray[Counter1],5.3))); 
DialogScreenI3] .  lnit(Concat(Copy(Choice,  1 ,3) .nam')) ; 
end 
else 
begin 

RightAC.Init(Concat(Copy(Choice,1,4),Copy(StudentModel.ACArray[Counter1],5,3))); 

DialogScreen(3].lnit(Concat(Copy(Choice,1,4),’.nam’)): 

end; 

RightAC.Show(365,72); 

Dial  ogScreen[3].Show(390, 179); 

Ch  ;=  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  ;=  ReadKey; 
end; 

DialogScreen[1  ].  Hide ; 

DialogScreen(1].Kill; 

DialogSaeenj3i .  Hide ; 

DialogScreen[3].  Kill ; 

RightAC.Hide; 

RightAC.Kill; 

if  StudentModel.AddEntry(StudentModel.ACArray[Counter1],  MaxNum)  =  false  then 
Done  ;*  tme; 

end; 

GoToXY(1,1); 

DialogScreen[2].Hide; 

DialogScreen[2].Kill; 

LeftAC.Hide; 

LeftAC.Kill; 

if  Ch  =  #27  then  Exit; 

Counterl  ;=  StudentModel.GetEntry(MaxNum); 
end; 

Done  ;=  true; 
end;  {ReviewExpert} 

procedure  Testlntermediate; 
begin  {Testlntermediate} 

Ch  ;=#13; 

Done  :=  false; 

MaxNum  :=  1 50; 
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DialogScreen[1  ].  lnit(‘Return.dlg’) : 
DialogScreen[1].Show(220,25): 

Ch  :=  ReadKey; 
while  Ch  >=  ‘h’  do 
begin 
GetHelp: 

Ch  :=  ReadKey: 
end; 

DialogScreen[1 )  .Hide; 

DialogScreen[1  ] .  Kill ; 
if  Ch  =  #27  then  Exit; 

DtalogScreGn[1  ] .  lnit{T  estint  dig) ; 
DialogScreen[li.Show(220,25); 

Ch  :=  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  ;=  ReadKey; 
end; 

DialogScreen[1].Hide; 

DialogScreen[1].Kill; 
if  Ch  =  #27  then  Exit; 

Counterl  ;=  StudentModel.GetEntry(MaxNum); 
while  Counterl  <>  0  do 
begin 

if  StudentModel.ACArray[Counter11  <>  "  then 
begin 

LeftAC.Init(StudentModel.ACArray[Counter1]): 

LeftAC.Show(25,72); 

WEFTMenu.lnitCWEFT.mnu’): 

Choice  ;=  WEFTMenu.GetChoice; 
if  Choice  =  ‘null’  then 
begin 

LeftAC.Hide; 

LeftAC.Kill; 

Exit; 

end; 

if  Choice  <>  LeftAC.ACInfo.AircraftName  then 
begin 

lnc(StudentModel .  NumMissed) ; 
Sound(lOO): 

Delay(200); 

NoSound; 

end; 

lnc(StudentModel.  NumShown) ; 

LeftAC.Hide; 

LeftAC.Kill; 

end; 
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GoToXY(1.1); 

StudentModel.ACArray[CounteTl]  ;= 

Counterl  :*  StudentModel.GetEntry{MaxNum); 
end; 

Done  :=  true; 
end;  {Testlntermediate} 

procedure  TestExperl; 
var 

Feature  ;  array  [1  ..161  name; 
begin  {TestExperl} 

MeucNum  >  1 50; 

Ch  ;-#13; 

Done  false; 

DialogScreen[1  ].  lnit(‘Return.dlg’) ; 

DialogScreen[1  j.Show(220,25) ; 

Ch  :=  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  ;=  ReadKey; 
end; 

DialogScreen(  1  ] .  Hide ; 

DialogScreen[1].Kill; 

H  Ch  =  #27  then  Exit; 

DialogScreen[1  ].  lnH(‘T  estExp.dIg’) ; 

DialogScreen[  1  j  .Sho  w(220, 25) ; 

Ch  :=  ReadKey; 
while  Ch  *  'h'  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[1].Hide; 

DialogScreen[1  j.Kill; 
if  Ch  »  #27  then  Exit; 

Counterl  ;=  StudentModel.GetEntry(MaxNum); 
while  Counterl  <>  0  do 
begin 

if  StudentModel.ACArray[Counter1J  <>  "  then 
begin 

Left  AC.  lnit(StudentModel.  ACArrayfCounterl  ]) ; 
WEFTMenu.lnit('WEFT.mnu’); 

Counters :»  1 ; 

for  Counter2  1  to  4  do 

if  LeftAC.ACInfo.Wingslnfo[Counter2]  <>  "  then 
begin 

Feature[Counter3]  >  LeftAC.ACInfo.Wingslnfo[Counter2]; 
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Counters  >  Counters  +  1 ; 
end; 

for  Counter2  >  1  to  2  do 

if  LeftAC.ACInfo.Enginelnfo[Counter2]  <>  then 
begin 

Feature(CounterS]  >  LeftAC.ACInfo.Enginelnfo[Counter2]; 
Counters  ;=  Counters  +  1 ; 
end; 

for  Counters  :=  1  to  4  do 

if  LeftAC.ACInfo.Fuslaglnfo[Counter2]  <>  "  then 
begin 

Feature[CounterS]  ;=  LeftAC.ACInfo.Fi'sleglnfo[Counter2]; 
Counters  :»  Counters  +  1 ; 
end; 

for  Counters  :=  1  to  5  do 

if  LeftAC.ACInfo.Taillnfo[Counter2]  <>  ”  then 
begin 

FeaturefCounterS]  :=  LeftAC.ACInfo.Taillnfo[Counter2]; 
Counters  :=  Counters  +  1 ; 
end; 

Counters  :=  1 ; 

Ch  ;=  #8; 

while  Ch  <>  #1 S  do 
begin 

ShowFeature  ( Feature[Counter2]) ; 
if  (Ch  =  and  (Counters  >  1 )  then 
Counters  :=  Counters  - 1 
else  if  (Ch  =  and  (Counters  «  1)  then 
Counters  ;=  Counters  •  1 

else  if  (Ch  =  ’+’)  and  (Counters  <  Counters  - 1 )  then 
Counters  ;=  Counters  +  1 

else  if  (Ch  =  '+’)  and  (Counters  =  Counters  - 1 )  then 
Counters  :=  1 
else  if  Ch  =  #27  then  Exit 
else 
begin 

Sound(440); 

Delay  (200); 

NoSound; 

end; 

end; 

Choice  ;«  WEFTMenu.GetChoice; 
if  Choice  =  'null'  then 
Exit; 

LeftAC.Show(25,72); 

if  Choice  <>  LeftAC.ACInfo.AircraftName  then 
begin 

lnc(StudentModet.  NumMissed); 
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Sound(IOO); 

Delay  (200); 

NoSound; 

end; 

Inr(StudentModel.NumShown); 

Ch  :=  ReadKey; 
while  Ch  «  'h'  do 
begin 
GetHelp; 

Ch  :«  ReadKey; 
end; 

LeftAC.Hide; 

LeftAC.Kill; 

if  Ch  -  #27  then  Exit; 

GoToXY(1,1); 

StudentModel.ACArray(Counter1]  >  “; 

Countert  >  StudentModel.GetEntry(MaxNunn); 
end; 

end; 

Done  :=  true; 
end;  (TestExpert) 

procedure  EvaluateStudent; 
var  F  :  text; 

begin  {EvaluateStudent} 

if  (StudentModel.Mode  Teach')  and  (StudentModel.NumShown  >=  MaxNum)  then 
begin 

StudentModel.Update(StudentModei.StudentName, 'Review', 

StudentModel.  Level, StudentModel.T  estScore) ; 

DialogScreenll  ].  InitC  Advancel  .dig') ; 

Dialog  Screen|li.Show(220,25); 

Ch  ;=  ReadKey; 

DialogScreen[1  ].Hide; 

DialogScreenjlj.Kill; 

end 

else  if  (StudentModel.Mode  'Review')  and  (Done  -  true)  then 
begin 

if  StudentModel.GetEntry(MaxNum  +  150)  *  0  then 
begin 

if  StudentModel. Level  »  ’Novice’  then 
begin 

StudentModel.  Update(StudentModel.StudentName ,  'T each' ,  ’  Intermediate’ , 
StudentModel.T estScore) ; 

DialogScreen[1  ].  Init(' Advance2.dlg’) ; 

Dialog  Screen!  1  ] .  Show(220,25) ; 

Ch  ReadKey; 

DialogScreen{1  ].Hide; 

DialogScreeni  1  ] .  Kill ; 
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end 

else 

begin 

StuclentModel.Update(StuclentMoclel.StudentName,Test', 
StudentModel.Level.StudentModel.T  estScore) ; 

DialogScreen[  1  ].  InitC  Advance  1  dig’) ; 

DialogScreen(1  j.Show(220,25); 

Ch  ;■  ReadKey; 

DialogScreen(1  ].Hide; 

DialogScreen[1  j .  Kill ; 
end 
end 
else 

for  Counten  ;=  1  to  MaxNum  do 
begin 

StudentModel.ACArray[Counter1]  ;=  StudentModel.MissedArray(Counter1]; 
StudentModel.MissedArray[Counter1]  > 

StudentModel.NumShown  >  1; 

StudentModel.NumMissed  ;=  0; 
end 
end 

else  if  (StudentModel.Mode  =  ‘Test’)  and  (Done  =  true)  then 
begin 

if  StudentModel.NumMissed  0  then 
begin 

if  StudentModel.  Level  »  ‘Expert’  then 
begin 

Assign(F,’HallFame.rec’); 

Append(F); 

Writeln(F,StudentModel.StudentName): 

Close(F): 

StudentModel.  Kill 
end 
else 
begin 

DialogScreen(1l.lnit(‘Great.dlg’); 

DialogScreen[1  j.Show(220,25) ; 

StudentModel. Update(StudentModel.StudentName, 'Review', 'Expert', 100); 

Ch  >  ReadKey; 

DialogScreen[1].Hide; 

DialogScreen  [  1  ] .  Kill ; 
end 
end 
else 
begin 

Score  Round(100*(1  -  (StudentModel  NumMissed/(StudentModel.NumShown-1)))); 
Dialog  Screen(1  ].  Init('Score.dlg'); 

Dialog  Screenjl  j.Show(220, 25); 
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SetColor(l): 

OutTextXY(315.60,Chr(Scor©  div  10  +  48)); 

OutTextXY(325,60.Chr(Score  mod  10  +  48)); 

SetColor(O); 

Ch ;«  ReadKey; 

DialogScre©n[1  ].  Hide; 

DialogScreen[1  j.  Kill; 
if  Score  >»  90  then 
begin 

if  StudentModel. Level  *  ‘Expert’  then 
begin 

Dialog  Screen[1  ].  lnit(‘Outst.dlg’) ; 

DialogScreenfl  l.Show(220,25); 

StudentModel.Update(StudentModel.StudentName, Test’, 'Experf, Score); 
Ch  ReadKey; 

DialogScreenfl  l.Hide; 

DialogScreenfl  j.Kill; 
end 
else 
begin 

DialogScreenf1].lnit(‘Qood.dlg’); 

DialogScreenfli.Show(220.25); 

Ch  ;=  ReadKey; 

DialogScreenfl  ]. Hide; 

DialogScreenfl  ].  Kill; 
if  StudentModel.  Level  =  ‘Novice’  then 
StudentModel.UpdatefStudentModel.StudentName, ’Teach’, 
’Intermediate’, Score) 

else 

StudentModel. Update(StudentModel.StudentName,’Review’, 
’Exper1’,Score); 
end 
end 

else  if  Score  >=  80  then 
begin 

DialogScreenfl  ].lnit(‘Fair.dlg’); 

DialogScreenfl  ].Show(220,25); 

Ch  :=  ReadKey; 

DialogScreenfl  ].  Hide; 

DialogScreenfl  ].  Kill; 

StudentModel. Update(StudentModel.StudentName,Test',StudentModel.Level,Score); 
end 

else  if  Score  >«  70  then 
begin 

Dialog  Screenf1].lnit('Poor.  dig’); 

DialogScreenfl  ] .  Show(220 ,25) ; 

Ch  :=  ReadKey; 

DialogScreenfl  ].  Hide; 
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DialogScreen[1].Kill; 

StudentModel.Up^e(StudentModel.StLidentName/Revievv',StudentM(xJei.Levei,S<x)re); 

end 

else 

begin 

Dialog  Screen(1  ] .  lnit(‘Fail.  dig’) ; 

Dialog  Screen!  1  j  .Show(220,25) ; 

Ch  ReadKey: 

DialogScreen(1  J.Hide; 

DialogScreenj  1  ] .  Kill ; 
if  StudentModel. Level  *  ‘Expert’  then 
StudentModel.Update(StudentModel.StudentName, 

■Review’, ’Intermediate', Score) 

else 

StudentModel. Update(StudentModel.StudentName, 

’Review’, 'Novice’,^ore); 

end; 

end; 

end; 

end;  {EvaluateStudent} 

procedure  TutorSession; 
begin  (TutorSession) 

if  not  StudentModel. Get  then 
Diagnose; 

Ch  :=  ‘C’; 

while  UpCase(Ch)  =  ‘C’  do 
begin 

SetColor(l); 

OutTextXY (320, 190, Concat(SludentModel. Mode, ’/’.StudentModel. Level)); 

SetColor(O); 

if  StudentModel. Level  =  ’Novice’  then 
begin 

if  StudentModel. Mode  =  Teach’  then  Teach 
else  if  StudentModel. Mode  =  ’Review’  then  ReviewNovice; 
end 

else  if  StudentModel. Level  =  ’Intermediate’  then 
begin 

if  StudentModel.Mode  =  ’Teach’  then  Teach 
else  if  StudentModel.Mode  =  ’Review’  then  Reviewintermediate 
else  if  StudentModel.Mode  «  ’Test’  then  Testintermediate; 
end 

else  if  StudentModel. Level  =  ’Expert’  then 
begin 

if  StudentModel.Mode  »  ’Review’  then  ReviewExpert 
else  if  StudentModel.Mode  -  ’Test'  then  TestExpert; 
end; 

SetColor(O); 
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OutTextXY(320, 190, Concat(StudentMoclel.  Mode,’/’, StudentModel.Level)); 
EvaluateStudent; 

DialogScreen[1J.lnit(‘Contin.dlg’); 

DialogScreen[1  ].Show(2S0,75); 

Ch  :«  ReadKey; 

DialogScreen[1  j.Hide; 

Dialog  Screanjl  j.Kill; 
end; 

StudentModel.Save; 
end;  {TutorSession} 

end. 
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unrt  Game: 


interface 

procedure  Play  Game; 
implementation 

uses  CRT,  Graph,  Student,  Aircfts,  Dialogs,  Menus,  Help; 
type 

name  =  string[20]; 
var 

Counter! ,  Counter2,  Counters,  MaxTime,  MaxNum,  PL1  Score,  PL2Score  :  integer; 
Score  ;  string: 

Ch,  PI :  char; 

LeftAC,  RightAC  :  Aircraft; 

DialogScreen  ;  array  [1..2]  of  Dialog; 

WEFTMenu  ;  Menu; 

Choice  :  name; 

procedure  ShowScores; 
begin 

SetColor(O); 

Line(260.62.280,62): 

Line(260,65, 280,65); 

Line(260, 68,280, 68): 

SetColor{1); 

Str(PL1  Score, Score); 

OutTextXY(270,65,Score): 

SetColor(O); 

Line(360,62,380.62); 

Line(360,65,380,65): 

Line(360, 68, 380,68); 

SetColor(1); 

Str(PL2Score,Score) ; 

OutTextXY(370, 65, Score); 

SetColor(O): 

end; 

procedure  PlayOne; 
begin 

DialogScreen[2] .  Init('NoGame.dlg’) ; 

Dialog  SCTeen(2].Show(220,1 00); 

SetColor(l); 

OutTextXY(319,142,LeftAC.ACInfo.AircraftName); 

SetColor(O); 

Ch  :=  ReadKey; 


while  Ch  «  ‘h’  do 
begin 
GetHelp: 

Ch  ;=  ReadKey; 
end; 

DialogScreen[2] .  Hide ; 

DialogScreenpi .  Kill ; 

LeftAC.Hide; 

RighlAC.Hide; 

LettAC.Kill; 

RightAC.Kill; 

PL2Score  :»  PL2Score  +  1 ; 

ShowScores; 

DialogScreen[2] .  lnit('Ready  .dig’) ; 
DialogScreen[21.Show(220,95) ; 

Ch  :=  ReadKey: 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[2] .  Hide ; 

DialogScreen[2j .  Kill ; 
end; 

procedure  PlayTwo; 
begin 

DialogScreen(1].lnit(‘GScore.dlg’); 

DialogScreen[1J.Show(220,25); 

ShowScores; 

DialogScreen(2].  lnit(‘Ready  .dig’) ; 

DialogScreen[2]  .Show(220,95) ; 

Ch  :=  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[2]  .Hide; 

DialogScreen{2] .  Kill ; 
for  Counterl  :=  1  to  25  do 
begin 

Counters  >  0; 

Counter2  StudentModel.GetEntry(MaxNum); 
LeftAC .  lnit(StudentModel.  AC  Array(Counter2]) ; 
RightAC.Init(StudentModel.ACArray[Counter21); 
LeftAC.Show(25.72); 

RightAC.Show(365,72); 
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while  (UpCase(Ch)  <>  ‘A’)  and  (UpCase(Ch)  <>  ‘L’)  and  (Ch  <>  #8)  do 
begin 

Counters  :*  Counters  +  1 ; 
if  Counters  >  MaxTime  then 
Ch  :=  #8: 

Delay  (5); 

if  KeyPressed  then 
Ch  ReadKey; 

end; 

PI  :=  UpCase(Ch); 
if  PI  =  #8  then 
begin 

if  MaxTime  <>  1 000  then 
PlayOne 
else 
begin 

LeftAC.Hide; 

RightAC.Hide; 

LeftAC.Kill; 

RightAC.Kill; 

DialogSaeen[2].lnit{'TimeOut.dlg’); 

DialogScreen[2] .  Show(220 ,95) ; 

Ch  :=  ReadKey; 
while  Ch  *  'h'  do 
begin 
GetHelp; 

Ch  :«  ReadKey; 
end; 

DialogScreen(2].Hide; 

DialogScreeni2] .  Kill ; 
end 
end 
else 
begin 

RightAC.Hide; 

RightAC.Kill; 
if  PI  =  ‘A’  then 

DialogScreen[2] .  lnit('Play  1  .dig’) 
else  DialogScreen[2] .  lnit('Play2.  dig’) ; 
DialogScreen[2].Show(220,25); 

WEFTMenu.lnit(‘WEFT.mnu’); 

Choice  ;*  WEFTMenu.GetChoice; 

DialogScreen[2]  .Hide; 

LeftAC.Hide; 

DialogScreenI2] .  Kill ; 

LeftAC.Kill; 

if  Choice  <>  LeftAC.ACInfo.AircraftName  then 
begin 
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Sound(IOO); 

Delay(200); 

H  PI  =  ‘A’  then  Dec(PL1  Score) 
else  Dec(PL2Score); 

NoS(  nd; 
end 
else 
begin 

if  PI  =  ‘A’  then  lrK:(PL1  Score) 
else  lnc(PI2Score); 
end; 

ShowScores; 
if  Countert  <  25  then 
begin 

DialogScreen[2].lnit(‘Ready.dlg’); 
DialogScreen[2].Show(220,95); 
Ch  >  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

DialogScreen[2] .  Hide; 
OialogScreen[2].Kill; 
end; 

end; 

GoToXY(1,1); 

Ch  :=#13; 
end; 

H  PL1  Score  >  PL2Score  then 
DialogScreen(2].lnK(‘Win1  .dig’) 
else  if  PL2Score  >  PL1  Score  then 
Dialog  Screen[2].lnit('Win2.dlg') 
else  DialogScreenpj. lnit{Tie.dlg’) ; 
DialogScreen[2].Show(220,95); 

Ch  :=  ReadKey; 

DialogScreen[2] .  Hide ; 

DialogScreen{2i .  Kill ; 

DialogScreen[1  ] .  Hide ; 

DialogScreen[lj.Kill; 

end; 

procedure  PlayGame; 
begin 

StudentModel . UpdateC  ’Game’, ’Game’ ,0) ; 
MaxNum  :=  1 50; 

DialogScreen[1  ].  Init('Game.dlg’) ; 
DialogScreen[1].Show(220,75); 
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Ch  ;■  ReadKey; 

while  (Ch  <>  *1’)  and  (Ch  <>  '2')  and  (Ch  <>  #27)  do 
begin 

if  Ch  *  ‘h’  then 
GetHelp; 

Ch  :=  ReadKey: 
end; 

DialogScreen[1  J.Hide; 

DialogScreenjl  ] ,  Kill ; 

PL1  Score  :=  0; 

PL2Score  :=  0; 

if  Ch  -  #27  then  Exit 

else  if  Ch  =  ‘1  ’  then 
begin 

Randomize: 

MaxTime  ;=  Random(250)  +  250; 

PlayTwo; 

end 

else  if  Ch  =  ‘2’  then 
begin 

MaxTime  :=  1 000; 

PlayTwo; 

end; 

end; 
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unit  Help; 
interface 

uses  CRT,  Graph,  Screens,  Student; 
type 

HELPScreen  =  object(Screen) 

OIdP  ;  pointer; 

procedure  Show(XLoc,  YLoc  ;  integer); 
procedure  Hide; 
end; 

procedure  GetHelp; 

implementation 

var 

Help  Item  :  HelpScreen; 

Ch  :  char; 

procedure  GetHelp; 
begin 

if  StudentModel.Mode  = "  then 
Helpltem.lnit(‘Menu.hlp’) 
else  if  StudentModel.Mode  =  ‘Game’  then 
Helpttem.lnit('Game.hlp’) 
else  if  StudentModel.Mode  =  ’Setup’  then 
Help  Hem.  ln/t(‘Setup.  hip’) 
else  if  StudentModel.Mode  =  ‘StuRep’  then 
Help  Item .  Init  ('StuRep.  hip’) 
else  if  StudentModel.Mode  =  ‘DelStu’  then 
Helpltem.lnit('DelStu.hlp’) 
else  if  StudentModel.Mode  =  ’SelAC’  then 
Helpitem.  lnlt(‘SelAC.  hip’) 
else  if  StudentModel.Mode  =  ‘AddAC’  then 
Helpitem.  lnit('AddAC. hip’) 
else  if  StudentModel.Mode  =  ‘Diagnose’  then 
Helpltem.lnit(‘Diagnose.hlp') 
else  if  StudentModel.Mode  =  ‘Teach’  then 
begin 

if  StudentModel.  Level  =  ‘Novice’  then 
Helpitem.  lnit('T  eaNov.hIp’) 
else  Help  Item.  lnit(‘T ealnt.hip’) ; 
end 

else  if  StudentModel.Mode  >  ‘Test’  then 
begin 

if  StudentModel. Level  *  ‘Intermediate’  then 
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Helpltem.lni1(‘Testlnt.hlp') 
else  Helpltem.lnit(‘TestExp.hlp’) 
end 
else 
begin 

if  StudentModel. Level  s  ‘Novice’  then 
Helpltem.lnit(‘RevNov.hlp’) 
else  H  StudentModel.  Level  =  ‘Intermediate’  then 
Helpitem.  lnit(‘Revlnt.hlp’) 
else  Helpitem. lnit(‘RevExp.hlp’); 
end; 

Helpltem.Show(0,0); 

Ch  :=  ReadKey; 

Helpitem.  Hide; 

Helpitem. Kill; 
end; 

procedure  HELPScreen.Show(XLoc,YLoc ;  integer); 
begin 

if  not  IsVisible  then 
begin 

X  :=  XLoc; 

Y  :=  YLoc; 

GetMem(OldP,  MemSize);{Save  the  old  bitmap} 
Getlmage{X,Y,X+639,Y+199.0ldP''); 
Putlmage{X,Y,P'',CopyPut);{and  draw  the  new  bKmap.) 
IsVisible  ;=  true; 
end; 

end; 

procedure  HELPScreen.Hide; 
begin 

if  IsVisible  then 
begin 

Putlmage(X.Y,OldP'',CopyPut);{Put  the  old  bitmap  back} 
FreeMem(OldP,  MemSize);{and  free  the  heap  memory.) 
IsVisible  ;=  false; 
end; 

end; 


end. 


95 


unit  Utility; 


interlace 

procedure  Setup; 
implennentation 
uses 

DOS, CRT, Graph, PCX_TP, Student, Menus, Screens, Aircfts, Dialogs, Help; 

type 

name  =  string[20]; 


retcode :  integer; 

F  :  text; 

Textstring  :  string; 

Counter :  integer; 

SetUpMenu  :  Menu; 

DialogScreen  ;  Dialog; 

StudentMenu  ;  Menu; 

ACMenu  :  Menu; 

StudentReport ;  Screen; 

Choice  :  name; 

Ch  ;  char; 

procedure  GetStudents; 
var 

Dirinfo  :  SearchRec; 
begin 

Assign  (F,  'Student,  rec’) ; 

ReWrite(F); 

Writeln(F,’STUDENTS’); 

WrHeln(F,320); 

Writeln(F,50); 

Writeln(F,1); 

FindFirst(“.mdr,AnyFile,  Dirinfo); 
while  DosError  =  0  do 
begin 

Writeln(F,Copy{Dirlnfo.Name,1,5)); 

FindNext(Dirlnfo); 

end; 

Close(F); 

end; 

procedure  SelectAC; 
var 

ACArray  :  array  [1..150]  of  name; 
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Dirinfo ;  SearchRec; 

F1,F2  :text: 

Counterl  :  integer; 

ACName  :  name; 
begin 

StudentModel.Mode  >  ‘SelAC’; 

Counter  :■  1 ; 

FinclFirst(“.nam’,AnyFile,  Dirinfo); 
while  DosError  =  0  do 
begin 

Assign(F1  ,Concat(Copy(Dirlnfo.Name,1 ,4),’_#1  .dat’)); 
Reset(F1); 

Readln(F1 , ACName); 

ACArraylCounter]  >  ACName; 

Counter  >  Counter  1 ; 

Close(F1); 

FindNext(Dirlnfo); 

end; 

Assign(F,’Aircraft,rec’); 

ReWrite(F); 

Writeln(F,’ AIRCRAFT’); 

Writeln(F,320); 

Writeln(F,50); 

Writeln(F,1); 

for  Counterl  :*  1  to  Counter-1  do 
if  ACArrayfCounterl]  <>  "  then 
Writeln(F,  AC  Array  [Counterl]); 

Close(F); 

Assign(F,’lntermed.def’); 

Assign(F1  ,’WER.mnu'); 

Rewrite(F); 

Rewrite(FI); 

Writeln(F,’lntermed  default’); 

Writeln(F, ’Teach’); 

Writeln(F, ’Intermediate’); 

Writeln(F.O); 

Writeln(F,1); 

Writeln(F,0); 

Writeln(F1  .’AIRCRAFT’); 

Writeln(F1,490); 

Writeln(F1,76); 

Writeln(F1,0); 

DialogScreen.  lnit(‘SelAC.dlg’) ; 

DialogScreen.Show(0,0); 

ACMenu.lnit(’Aircraft.rec’); 

Choice  :*  ACMenu.GetChoice; 
while  Choice  <>  ’null’  do 
begin 
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if  Copy{Choice,4,1)  « ‘ '  then 
begin 

Writeln(F,Concat(Copy(Choice,1,3),’ _ ^#1')): 

Writeln(F,Concat(Copy(Choice,1,3),’_#2')) 

Writeln(F,Concat(Copy(Choice.1,3),’ _ #3’)) 

end 

else 

begin 

Writeln(F,Concat(Copy(Choice,1,4),’_#1')); 
Writeln(F.Concat(Copy(Choice.  1 .4).’_#2’)); 
Writeln(F,Concat(Copy(Choice,1,4),’_#3')): 
end; 

Writeln(F1  .Choice); 
for  Counterl  :=  1  to  Counter-1  do 
if  ACArraylCounterl]  =  Choice  then 
ACArraylCounterl] 
Assign(F2,'Aircraft.rec’); 

ReWrite(F2); 

Writeln(F2, ’AIRCRAFT’); 

Writeln(F2.320); 

Writeln(F2,50); 

Writeln(F2.1); 

for  Counterl  :=  1  to  Counter- 1  do 
if  ACArray[Counter1]  <>  ‘  ‘  then 
Writeln(F2,ACArray[Counter1]); 

Close(F2); 

ACMenu.lnit('Aircraft.rec’); 

Choice  ;=  ACMenu.GetChoice; 


end; 

DialogScreen.Hide; 

DialogScreen.Kill; 

Close(F); 

Close(FI); 

end; 


procedure  AddAC; 
const 

ALPHA  =  [•0’..’9'.’A’..’Z’.’a’..’z’,’-’]; 
var 

ACName  :  name; 

Dirinfo  :  SearchRec; 

Counterl  ,Counter2  :  integer; 

Size  :  word; 

P  :  pointer; 
s  :  string; 

FileName  :  string; 

F  :  file; 
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F1  :text: 

Ch  :  char; 

Offset, MaxX,MaxY,X,Y  :  integer; 

OldAC :  aircraft; 
begin 

StudentModel.Mode  'AddAC; 

ACName  >  "; 

Counterl  :=  1 ; 

SetColor(1); 

DialogScreen .  lnit(‘GetAC.dlg’) ; 
DialogScreen.Show(220,25) ; 

Line(220.64, 420,64); 

Line(220,67,420,67); 

Line(220,70,420,70); 

Ch  ;=  #8; 

while  (Ch  <>  #13)  and  (Counterl  <  21)  do 
begin 

Ch  :=  ReadKey; 
if  Ch  =  chr(32)  then 
begin 

ACName  :=  Concat(ACName,chr(32)); 

Counterl  :=  Counterl  +  1 ; 
end; 

if  Ch  in  ALPHA  then 
begin 

SetColor(O); 

OutTextXY(225+10*Counter1,68,Ch); 

ACName  :*=  Concat(ACName,Ch); 

Counterl  ;=  Counterl  +  1 ; 

SetColor(l); 

end; 

if  (Ch  =  #8)  and  (Counterl  >  1)  then 
begin 

SetColor(l); 

Line(210+10*Counter1,64,220+10*Counter1,64) 
Line(21 0+ 1 0*Counter1 ,67,220+1 0*Counter1 ,67) 
Line(210+10*Counter1,70,220+10*Counter1,70) 
Counterl  :=  Counterl  - 1 ; 

ACName  :=  Copy  (AC  Name,1,  Counterl -1); 
SetColor(O); 
end; 

end; 

Dialog  Screen.Hide; 

Dialog  Screen.Kill; 

DialogSaeen.lnit('New.dlg'); 

DialogScreen.Show(0, 179); 

SetTextJustify  (CenterText,CenterText) ; 

OutTextX  Y( 1 00,1 89,  ACName) ; 
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H  Copy (ACName, 4,1 )  *  "  then 

FindFirst(Concat(Copy(ACName,1 ,3),’_.nam’),AnyRte,  Dirinfo) 
else  FindFirst(Concat(Copy(ACName,1 ,4),’.nam’),AnyFile,  Dirinfo); 

Size  :=  lmageSize(0,1 79,200,1 99); 

GetMem(P,Size)i 
Getlmage(0, 1 79 ,200, 1 99,  P'') ; 
if  Copy(ACName,4,1 )  *  “  then 
Assign(F,Concat(Copy(ACName,1,3),’_.nam’)) 
else  Assign(F,Concat(Copy(ACName,1 ,4),’.nam’)); 

ReWrite(F,1); 

BlockWrite(F,P'',Size): 

Close{F); 

FreeMem(P,Size): 

DialogScreen .  Hide ; 

DialogScreen.Kill; 

Offset  ;=  140; 

MaxX  499; 

MaxY  ;*219; 
for  Counterl  ;=  1  to  3  do 
begin 
X:=  0; 

Y  0; 

str(Counter1,s); 

SetColor(l); 

SetLineStyle(SolidLn,0,NonnWidth); 

SetWriteMode(XorPut) ; 
if  DosError  =  0  then 
begin 

if  Copy(ACName,4,1) »  '  ‘  then  OidAC.Init(Concat(Copy(ACName.1,3),’ _ #’,s)) 

else  OidAC.Init(Concat(Copy(ACName,1,4),’  #’,s)); 

OldAC.Show{0,0); 
for  X  :=  MaxX  downto  0  do 
for  Y  MaxY  downto  0  do 
if  GetPixel(X,Y)  =  1  then 
begin 

PutPixel(X,Y,0); 

PutPixel(X*2+1 40,  Y*2-1 0,1 ); 

PutPixel(X*2+141,Y*2-10,1); 

PutPixel(X*2+1 40,  Y*2+1  -10,1); 

PutPixel(X*2+1 41 ,  Y*2+1  -10,1); 
end; 

OldAC.Kill; 

end; 

Ellipse(MaxX  div  2  +  Offset,MaxY  div  2-10,0,360,MaxX  div  2, MaxY  div  2); 
repeat 

Line(X+Offset,  Y,X+Offset.Y+1 ); 

Line(X+Offset,Y,X+OHset+1  .Y); 

Ch  :=  ReadKey; 
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while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  ;=  ReadKey; 
end; 

Line(X+Offset,  Y,X+Offset,Y+1 ); 

Line(X+Offset,  Y,X+0«set+1  ,Y); 

Case  Ch  of 

chr(80),  chr(50) :  if  Y  <  MaxY  then  Y  >  Y  +  2; 
chr(75),  chr(52) ;  if  X  >  0  then  X  >  X  -  2; 
chr(77),  chr(54) ;  if  X  <  MaxX  then  X  X  +  2; 
chr(72),  chr(56) :  If  Y  >  0  then  Y  ;=  Y  -  2; 
chr(32)  ;begin 

PutPixel(X+Offset,Y,abs(GetPlxel(X+Offset,Y)-1)): 

PutPixel(X+Offset+1  .Y.abs(GetPixel(X+Offset+1  ,Y)-1 )); 
PutPixel(X+Offset.Y+1  ,abs(GetPixel(X+Offset+1  ,Y+1  )-l )); 
PutPixel(X+Offset+1  ,Y+1  ,abs(GetPixel{X+Offset+1  ,Y+1)-1 )); 
end; 

end; 

until  Ch  =  #13; 

SetColor(O); 

Ellipse(MaxX  div  2  +  Offset, MaxY  div  2-1 0,0,360, MaxX  div  2,MaxY  div  2); 
for  X  :=  0  to  MaxX  div  2  do 
for  Y  :=  0  to  MaxY  div  2  - 1 0  do 
if  GetPixel(X‘2+Offset,Y‘2)  =  1  then 
begin 

PutPixel(X,Y+5,1); 

PutPixel(X*2+Offset,Y*2,0); 

PutPixel(X*2+OHset+1  ,Y*2,0); 

PutPixel(X*2+Offset.Y*2+1 ,0); 

PutPixel(X*2+Offset+1  ,Y*2+1 .0); 
end; 

retcode  :=  pcxSetDisplay(pcxCGA_6); 
if  Copy(ACName,4,1 )  =  ‘ '  then 

retcode  ;=  pcxDisplayFile(Concat{Copy(ACName,1 ,3),' _ ^#’,s,’.pcx’), 0,0, MaxX  div  2,MaxY 

div  2,0) 

else  retcode  ;=  pcxDisplayFile(Concat(Copy(ACName,1 ,4),’_#’,s,'.pcx’),0,0,MaxX  div  2,MaxY 
div  2,0); 

{Input  the  data  for  this  view} 
if  Copy(ACName,4,1 )  =  “  then 

Assign(F1  ,Concat(Copy(ACName.1 ,3),' _ ^#',s,’.da1’)) 

else  Assign(F1  ,Concat(Copy(ACName,1 ,4),'_#’,s,’.dat’)); 

ReWrite(FI); 

Writeln(F1  ,ACName); 

Writeln(F1,”); 

Writeln(F1 ,"); 

SetColor(l); 

SetLineStyle(SolidLn,0,ThickWidth); 
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for  Counter2  :=  1  to  40  do 

Line(390,Counter2*3+65,590,Counier2*3+65); 
SetUpMsnu.lnitCWingl  .mnu'); 

Choice  >  SetUpMenu.GetChoice; 
if  Choice  <>  'null'  then 
begin 

Writeln(F1  .Choice); 

Str(LastSelection,s) ; 
if  LastSelection  <10  then 
Writeln(F1  ,Concat(‘Wing1 0’,s)) 
else  Writeln(Fl  ,Concat(‘Wing1’.s)); 
end 
else 
begin 

Writeln(F1,”); 

Writeln(F1,”): 

end; 

SetUpMenu.  lnit(‘Wing2.rnnu’) ; 

Choice  :=  SetUpMenu.GetChoice; 
if  Choico  <>  ‘null’  then 
begin 

Writeln(F1  .Choice); 

Str(LastSelection.s); 
if  LastSelection  <10  then 
Writeln(F1  .Concat(‘Wing20’,s)) 
else  Writeln(F1  .Concat(‘Wing2’.s)); 
end 
else 
begin 

Writeln(F1.”); 

Writeln(F1.”); 

end; 

SetUpMenu.  lnit('Wing3.mnu’); 

Choice  ;=  SetUpMenu.GetChoice; 
if  Choice  <>  ‘null’  then 
begin 

Writeln(F1  .Choice); 

Str(  LastSelection.  s) ; 
if  LastSelection  <  1 0  then 
Writeln(F1  .Concat('Wing30’,s)) 
else  Writeln(F1  .Concat('Wing3’,s)); 
end 
else 
begin 

Writeln(F1.”); 

Writeln(F1.”); 

end; 

SetUpMenu. lnit('Wing4. mnu’); 
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Choice  >  SetUpMenu.GetChoice; 
if  Choice  <>  'null’  then 
begin 

Writeln(F1  .Choice); 
Str(LastSelection ,  s) ; 
if  LastSelection  <10  then 
Writeln(F1  ,Concat('Wing40',s)) 
else  Writeln(F1,Concat('Wing4’,s)); 
end 
else 
begin 

Writeln(F1."): 

Writeln(F1.”); 

end; 

SetUpMenu.lnit('Engi1  .mnu'); 

Choice  ;=  SetUpMenu.GetChoice; 
if  Choice  <>  ‘null’  then 
begin 

Writeln(F1  .Choice); 
Str(LastSelection.s); 
if  LastSelection  <  1 0  then 
Writeln(F1  .Concat(‘Engi10’.s)) 
else  Writeln{F1  ,Concat{'Engi1’.s)); 
end 
else 
begin 

Writeln(F1,”); 

Writeln(F1.”); 

end; 

SetUpMenu.lnit(‘Engi2.mnu’); 

Choice  :=  SetUpMenu.GetChoice; 
if  Choice  <>  ‘null’  then 
begin 

Writeln(F1  .Choice); 

Str(  LastSelection ,  s) ; 
if  LastSelection  <  1 0  then 
Writeln(F1  .Concat(‘Engi20',s)) 
else  Writeln(F1  ,Concat(‘Engi2’.s)); 
end 
else 
begin 

Writeln(F1,”); 

Writeln(F1,"); 

end; 

SetUpMenu.lnit('Fuse1  .mnu’); 

Choice  :=  SetUpMenu.GetChoice; 
if  Choice  <>  ’null’  then 
begin 
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Writeln(F1  .Choice); 
Str(LastSelection,s) ; 
if  LastSelection  <  1 0  then 
Writeln(F1  ,Concat(‘Fuse10’,s)) 
else  Writeln(F1  ,Concat('Fuse1’,s)); 
end 
else 
begin 

Writeln(F1,”): 

Writeln(F1."): 

end; 

SetUpMenu.lnit(‘Fuse2.mnu’); 

Choice  :=  SetUpMenu.GetChoice; 
if  Choice  <>  ‘null’  then 
begin 

Writeln(F1  .Choice); 
Str(LastSelection.s); 
if  LastSelection  <  1 0  then 
Writeln(F1  ,Concat(‘Fuse20’.s)) 
else  Writeln{F1  .Concat(‘Fuse2’.s)); 
end 
else 
begin 

Writeln(F1.”); 

Writeln(F1.”); 

end; 

SetUpMenu.lnit(‘Fuse3.mnu’); 

Choice  :=  SetUpMenu.GetChoice; 

H  Choice  <>  'null'  then 
begin 

Writeln(F1  .Choice); 
Str(LastSelection.s); 

H  LastSelection  <10  then 
Writeln(F1  .Concat('Fuse30’,s)) 
else  Writeln(F1  .Concat(‘Fuse3’.s)); 
end 
else 
begin 

Writeln(F1."); 

Writeln(F1,”); 

end; 

SetUpMenu.lnit(‘Fuse4.mnu'); 

Choice  ;=  SetUpMenu.GetChoice; 
if  Choice  <>  'null'  then 
begin 

Writeln(F1. Choice); 

Str(  LastSelection .  s) ; 
if  LastSelection  <  1 0  then 
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Writeln(F1  ,Concat(‘Fuse40’,s)) 
else  Writeln(F1  ,Concat('Fuse4',s)); 
end 
else 
begin 

Writeln(F1,"): 

Writeln{F1,”); 

end; 

SetUpMenu.lnit(Tail1  .mnu’); 

Choice  >  SetUpMenu.GetChoice; 
if  Choice  <>  ‘null’  then 
begin 

Writeln(F1  .Choice); 
Str(LastSelection ,  s) ; 
if  LastSelection  <10  then 
Writeln(F1  ,Concat(‘Tail10’.s)) 
else  Writeln(F1  ,Concat{‘Tail1’,s)); 
end 
else 
begin 

Writeln(F1."); 

Writeln(F1,”); 

end; 

SetUpMenu.lnit(Tail2.mnu’); 

Choice  ;=  SetUpMenu.GetChoice; 
if  Choice  <>  ‘null’  then 
begin 

Writeln  (FI  .Choice); 
Str(LastSelection.  s) ; 
if  LastSelection  <  1 0  then 
Writeln(F1  .Concat(‘Tail20’.s)) 
else  Writeln(F1  .Concat('Tail2’.s)); 
end 
else 
begin 

Writeln(F1."); 

Writeln(F1.'’); 


end; 

SetUpMenu.lnit(‘Tail3.mnu’); 

Choice  ;=  SetUpMenu.GetChoice; 
if  Choice  <>  ‘null’  then 
begin 

Writeln(F1. Choice); 
Str(LastSelection,s); 
if  LastSelection  <  1 0  then 
Writeln(F1  .Concat(‘Tail30’.s)) 
else  Writeln(F1  .Concat(‘Tail3’.s)); 
end 
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else 

begin 

Writeln(F1.”); 

Writeln(F1,”): 

end; 

SetUpMenu.lnit(Tail4.mnu'); 

Choice :»  SetUpMenu.GetChoice; 
if  Choice  <>  'null'  then 
begin 

Wrrteln(F1  .Choice); 

Str(LastSelection,s) ; 

if  LastSelection  <10  then 
Wtiteln(F1  .Concat(‘Tail40’.s)) 

else  Writeln(F1  ,Concat(‘Tail4',s)); 
end 
else 
begin 

Writeln(F1,"); 

Writeln(F1,"); 

end; 

SetUpMenu.  lnit(‘T  ailS.mnu’); 

Choice  :=  SetUpMenu.GetChoice; 
if  Choice  <>  ‘null’  then 
begin 

Writeln(F1  .Choice); 

Str(LastSof0Ction.s); 

if  LastSelection  <  10  then 
Writeln(F1  ,Concat(‘Tail50’.s)) 

else  Writeln(Fl  .Concat('Tail5’.s)): 
end 
else 
begin 

Writeln(F1.’'); 

Writeln(F1."); 

end; 

Close(FI); 

ClearDevice; 

end; 


procedure  Report; 
begin 

StudentModel.Mode  ;=  ‘StuRep’; 
GetStudents; 

DialogScreen.  lnrt(‘StuRep.dlg') ; 
DialogScreen.Show(0,0) ; 
StudentMenu.lnit('Student.rec’); 
Choice  :=  StudentMenu.GetChoice; 
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while  Choice  <>  ‘null’  do 
begin 

StudentReport.  lnit(‘StuRep.scr') ; 

StudentReporl.Show(0,0); 

Assign(F,Concat(Choice,’.mdr)); 

Reset(F): 

SetColor(l): 

SetT  exUustify  (Left!  ext ,  Left!  ext) ; 

OutTextXY(325, 74, Choice): 
for  Counter  >  1  to  4  do 
begin 

Readln(F, Textstring); 

if  Textstring  =  ‘0’  then  OutTextXY(325,Counter*  12+74, 'Not  Tested') 
else  OutTextXY(325,Counter*1 2+74 .Textstring); 
end; 

SetColor(O); 

Close(F); 

Ch  :=  ReadKey; 
while  Ch  =  ‘h’  do 
begin 
GetHelp; 

Ch  :=  ReadKey; 
end; 

ClearDevice; 

DialogScreen.  Hide; 

StudentReport.  Kill; 

DialogScreen.Show(0,0); 

GetStudents; 

StudentMenu .  lnit{‘Student.rec’) ; 

Choice  :=  StudentMenu.GetChoice; 
end; 

DialogScreen.Hide; 

DialogScreen.  Kill; 
end; 

procedure  DelStudent; 
begin 

StudentModel.Mode  :=  'DelStu'; 

GetStudents; 

DialogScreen.  lnit(‘StuDel.dlg') ; 

DialogScreen. Show(0,0); 

StudentMenu.  lnit(‘Student.  rec’) ; 

Choice  StudentMenu.GetChoice; 
while  Choice  <>  'null'  do 
begin 

Exec(‘\COMMAND.COM',Concat(‘/C  del ', Choice, ’.mdl’)); 

GetStudents; 

StudentMenu.  lnit('Student.  rec’) ; 
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Choice  ;*  StudentMenu.QetChoice; 
end; 

DialogScreen.Hide; 

DialogScreen.Kill; 

end; 

procedure  SetUp; 
const 

ALPHA  =  [‘0’..’9'.'A’..’Z’.'a’..’z’.’-’l; 
var 

Password :  name; 

Counterl  :  integer; 
begin 

Password  ;= "; 

Counterl  ;=  1 ; 

SetColor(l); 

DialogScreen.  Init('Passwd.dlg') ; 

DialogScreen.  Show(220, 25) ; 

Line(220,64,420,64); 

Line(220.67.420.67); 

Line(220.70,420,70); 

Ch  :=  #8; 

while  (Ch  <>  #1 3)  and  (Counterl  <  21 )  do 
begin 

Ch  :=  ReadKey; 
if  Ch  =  chr(32)  then 
begin 

Password  :=  Concat(Password.chr(32)); 
Counterl  :■  Counterl  +  1 ; 
end; 

H  Ch  in  ALPHA  then 
begin 

SetColor(O); 

OutTextX  Y(225+ 1 0*Counter1 ,68,Ch) ; 

Password  :=  Concat(Password,Ch); 

Counterl  ;=  Counterl  +  1 ; 

SetColor(1); 

end; 

if  (Ch  =  #8)  and  (Counterl  >  1)  then 
begin 

SetColor(l); 

Line(21 0+10*  Counterl  ,64,220+ 10*  Counterl  ,64); 
Line(210+10*Counter1,67,220+10*Counter1,67); 
Line(2 1 0+ 1 0*  Counterl  ,70,220+ 1 0*  Counterl  ,70) ; 
Counterl  :=  Counterl  - 1 ; 

Password ;»  Copy(Password,1,Counter1-1); 
SetColor(O); 
end; 
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end; 

DialogScreen.Hide; 

DialogScreen.Kill; 
if  Password  <>  ‘101653362’  then 
Exit; 

StudentModel.Mode  :=  ‘Setup’; 

SetUpMenu.lnit(‘SetUp.mnu‘); 

Choice ;«  SetUpMenu.GetChoice; 
while  (Choice  <>  ‘EXIT’)  and  (Choice  <>  ‘null’)  do 
begin 

if  Choice  =  ‘SELECT  AIRCRAFT’  then  SelectAC 
else  if  Choice  *  'ADD/MODIFY  AIRCRAFT’  then  AddAC 
else  if  Choice  =  ‘STUDENT  REPORT  then  Report 
else  H  Choice  =  ‘DELETE  STUDENT’  then  DelStudent; 
GotoXY(1,1); 

StudentModel.Mode  >  ‘Setup’; 
SetUpMenu.lnit(‘SetUp.mnu’); 

Choice  :=  SetUpMenu.GetChoice; 
end; 

end; 

end. 


109 


program  Install; 

uses  DOS,  CRT,  GRAPH; 

var 

Ch  ;  char; 
grDriver :  integer; 
grMode :  integer; 

ErrCode  :  integer; 

Dirinfo  :  SearchRec; 
begin 

ChDir('A:\’); 
grDriver  >  CGA; 
grMode  >  CGAHi; 
lnitGraph(grDriver,grMode,’’); 

ErrCode  >  GraphResult; 
if  ErrCode  <>  0  then 
begin 

writeln(This  program  requires  CGA  graphics.’); 
writelnj'  Install  ABORTED.’); 
writeInC  Press  any  key  to  return  to  DOS.’); 

Ch  :=  ReadKey; 

Exit; 

end; 

SetT  extJustify  (CenterT  ext,CenterT  ext); 

ClearDevice; 

FindFirst(‘A.COPYRITE.90’,AnyFile,Dirlnfo); 
if  DOSError  <>  0  then 
begin 

Sound(440); 

Delay  (100); 

NoSound; 

ClearDevice; 

OutTextXY(320,100,’The  Aircraft  Recognition  Tutor  is  COPY  PROTECTED.’); 
OutTextXY(320,1 10,'Please  see  the  User”s  Manual  for  details.'); 
OutTextXY(320, 120, 'Press  any  key  to  return  to  DOS.’); 

Ch  >  ReadKey; 

ClearDevice; 

CloseGraph; 

Exit; 

end; 

ClearDevice; 

OutTextXY(320, 100, 'Welcome  to  the  Aircraft  Recognition  Tutor  Install  Program’); 
OutTextXY(320,110,'Press  any  key  to  begin’); 

Ch  >  ReadKey; 


no 


ClearDevice; 

OutTextXY(320, 100, 'Creating  a  new  directory  called  "ARTUTOR”.’); 
ChDirCC:V); 

MkDirCARTUTOR’); 
if  lOResult  <>  0  then 
begin 

OutTextXY(320,1 10, 'Cannot  create  directory.  Install  ABORTED.'); 
OutTextXY(320,120,'Press  any  key  to  return  to  DOS.'); 

Ch  :«  ReadKey; 

ClearDevice; 

CloseGraph; 

Exit; 

end; 

ChDir(‘ARTUTOR'); 

ClearDevice; 

FindFirst(‘A;Disk.  1 ' ,  AnyFile,  Dirinfo) ; 
while  DOSError  <>  0  do 
begin 

Sound(440); 

Delay(IOO); 

NoSound; 

ClearDevice; 

OutTextXY(320,100,'lnsure  that  Disk  1  is  in  Drive  A;  and  press  any  key.'); 
Ch  :=  ReadKey; 

FindFirst(‘A:Disk.1',AnyFile,Dirlnfo); 

end; 

ClearDevice; 

OulTextXY(320,100,'Copying  files  from  Disk  1'); 

Exec('\COMMAND.COM’,'/C  copy  A:*.*'); 

Exec(‘\COMMAND.COM','/C  copy  A:\WEFT\*.*'); 

Exec('\COMMAND.COM’,'/C  copy  A:\DIALOG\*.*'); 
Exec(‘\COMMAND.COM','/C  copy  A:\MENU\*.*'); 

Exec('\COMMAND.COM','/C  del  A:COPYRITE.90'); 

ClearDevice; 

OutTextXY(320,1 00, 'Insert  Disk  2  in  Drive  A;  and  press  any  key.'); 

Ch  :=  ReadKey; 

FindFirstC  A:Disk.2' ,  Any  File,  Dirinfo) ; 
while  DOSError  <>  0  do 
begin 

Sound(440); 

Delay(IOO); 

NoSound; 

ClearDevice; 

OutTextXY(320, 100, 'Insure  that  Disk  2  is  in  Drive  A:  and  press  any  key.'); 
Ch  ReadKey; 
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FindFirstC  A  :Disk.2’ ,  Any  File  .Dirinfo) ; 
end; 

ClearDevice; 

OutTe)rtXY(320, 100, 'Copying  tiles  from  Disk  2'); 

Exec('\COMMAND.COM'.’/C  copy  A;*.*’); 

ClearDevice; 

OutTextXY(320, 100, 'Insert  Disk  3  in  Drive  A:  and  press  any  key.'); 

Ch ReadKey; 

RndFirst(*A:Disk.  3',  Any  File,  Dirinfo) ; 
while  DOSError  <>  0  do 
begin 

Sound(440); 

Delay(IOO); 

NoSound; 

ClearDevice; 

OutTextXY(320,100,'lnsure  that  Disk  3  is  in  Drive  A;  and  press  any  key.'); 
Ch  >  ReadKey; 

FindFirst{‘A;Disk.3',AnyFile,Dirlnfo); 

end; 

ClearDevice; 

OutTextXY(320,100,'Copying  files  from  Disk  3'); 

Exec(‘\COMMAND.COM','/C  copy  A:*.‘'); 

Exec('\COMMAND.COM','/C  copy  A:\AC1\*.*'); 

Exec(‘\COMMAND.COM','/C  copy  A:\AC2r.*'); 

ClearDevice; 

OutTextXY(320, 100, 'Insert  Disk  4  in  Drive  A;  and  press  any  key.’); 

Ch  ;»  ReadKey; 

FindFirst(‘A;Disk.4’,AnyRle,Dirlnfo); 
while  DOSError  <>  0  do 
begin 

Sound(440); 

Delay(IOO); 

NoSound; 

ClearDevice; 

OutTextXY(320,100,'lnsure  that  Disk  4  is  in  Drive  A:  and  press  any  key.’); 
Ch  :®  ReadKey; 

FindFirst('A:Disk.4',AnyFile, Dirinfo); 
end; 

ClearDevice; 

OutTextXY(320,100,'Copying  files  from  Disk  4'); 

Exec(‘\COMMAND.COM’,’/C  copy  A:\AC3\*.*’); 

Exec(‘\COMMAND.COM’,’/C  copy  A:\AC4\V *’); 

Exec(^COMMAND.COM’,'/C  del  install.exe’); 

Exec('\COMMAND.COM’,’/C  del  unstall.exe’); 

Exec('\COMMAND.COM’,’/C  del  disk.*’); 
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ClearDevice; 

OutTextXY(320, 100, 'Install  program  complete.’); 
OuiTextXY(320,1 10, 'Press  any  key  to  return  to  DOS’); 
Ch  >  ReadKey; 

ClearDevice; 

CloseGraph; 

end. 
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program  Unstall; 
uses  DOS,  CRT ; 
var 

Ch  :  char; 

Dirinfo :  SearchRec; 
begin 
CIrScr; 

Writeln(‘Unlnstalling  the  Aircraft  Recognition  Tutor.’); 

WriteInj'Please  Wait.'); 

Exec(‘\COMMAND.COM’,7C  copy  C:\ARTUTOR\COPYRrrE.90  A:’); 

ChDirCC.V); 

Exec(’\COMMAND.COM’.’/C  del  C:\ARTUTOR\COPYRITE.90'); 
Exec(’\COMMAND.COM’,'/C  del  C:\ARTUTOR\*.bgi’); 
ExecC\COMMAND.COM’.7C  del  C:\ARTUTOR\*.scr’); 
Exec('\COMMAND.COM’.7C  del  C:\ARTUTORV.pic’); 
ExecC\COMMAND.COM’,7C  del  C:\ARTUTOR\*.dlg’); 
Exec(‘\COMMAND.COM’,7C  del  C:\ARTUTOR\*.nam’); 
Exec('\COMMAND.COM’.’/C  del  C;\ARTUTOR\*.mnu’); 
Exec(‘\COMMAND.COM’,7C  del  C:\ARTUTOR\*.def’); 
Exec(‘\COMMAND.COM’.7C  del  C:\ARTUTOR\*.dat’); 
Exec{‘\COMMAND.COM’,’/C  del  C;\ARTUTOR\*.exe’); 
Exec(‘\COMMAND.COM’,’/C  del  C:\ARTUTOR\*.hlp’); 
ExecC\COMMAND.COM’,’/C  del  C;\ARTUTOR\*.rec’); 
Exec(‘\COMMAND.COM’.’/C  del  C:\ARTLrTOR\*.def’); 
ExecC\COMMAND.COM’,7C  del  C:\ARTUTOR\*.mdl’): 

RmDir('ARTUTOR); 

CIrScr; 

Writeln('Unstall  Completed.  You  may  now  Install  the  Aircraft  RecognKion  Tutor*) ; 
Writeln(‘on  another  computer.’); 

Writeln(‘Press  any  key  to  return  to  DOS’); 

Ch  ;=  ReadKey; 

CIrScr; 

end. 
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1  Introduction 

1 . 1  About  the  Tutor 

The  Aircraft  Recognition  Tutor  was  developed  as 
part  of  a  Masters  Thesis  in  Computer  Science  by 
CPT  Larry  W.  Campbell.  One  of  the  major  goals 
of  the  diesis  was  to  demonstrate  that,  using  exist¬ 
ing  technology  in  Computer  Science  and  Artifi¬ 
cial  Litelligence,  a  useful  computer  training  tool 
could  be  developed  quickly  and  inexpensively. 

Li  addition,  this  training  tool  would  run  on  exist¬ 
ing  hardware  in  the  field  (U.S.  Army  ADA  Bat¬ 
talions). 

Part  of  this  goal  has  definately  been  met.  The 
Aircraft  Recognition  Tutor  was  developed  over  a 
period  of  3  months  by  a  single  individual. 
Whether  the  tutor  is  useful  will  be  determined  by 
you,  the  user. 

The  requirement  that  the  tutor  run  on  existing 
hardware  imposed  some  serious  constraints  on 
the  development  of  the  program.  U.S.  Army 
ADA  Battalions  currently  have  Zenith  Z-248 
computers  with  640K  RAM,  20MB  Hard  Disk, 
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360K  5-1/4"  Floppy  Disk,  and  CGA  graphics. 
Because  the  computers  use  CGA  graphics,  the 
graphics  resolution  of  the  tutor  was  limited  lo 
either  320  x  200  pixels  with  4  colors  or  640  x 
200  with  2  colors.  Both  are  inadequate  in  my 
opinion,  however,  until  the  computer  systems  are 
upgraded  to  EGA  (640  x  350,  16  color),  VGA 
(640  X  480,  16  color),  or  Super  VGA  (800  x  600, 
16  color),  they  will  have  to  do.  After  experi¬ 
menting  with  both  of  the  available  graphics 
modes,  the  640  x  200  mode  was  chosen  as  the 
best  comprimise.  If  the  tutor  is  accepted  and 
used  by  the  field,  future  versions  will  become 
available  for  liigher  resolution  graphics  inodes 
which  will  allow  the  aircraft  used  by  the  system 
to  be  of  almost  photographic  quality. 

The  topic  for  the  tutor  was  chosen  based  on  the 
past  experience  of  tlie  autlior.  Aircraft  Recogni¬ 
tion  remains  a  crucial  skill  needed  by  all  SHO- 
RAD  (Short  Range  Air  Defense)  soldiers.  Un¬ 
fortunately,  this  skill  is  difficult  to  acquire  and  is 
quite  perishable.  In  spite  of  continuous  training 
by  units,  soldiers  continue  to  have  difficulty 
developing  and  maintaining  proficiency  at  visu- 
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ally  identifying  aircraft.  Numerous  training  aids 
exist  to  help  units  train  soldiers,  however,  they 
need  a  qualified  instructor  in  order  to  be  effec¬ 
tive.  These  instructors  are  not  always  available, 
and  the  varying  degrees  of  proficiency  make 
group  training  less  than  ideal.  The  Aircraft 
Recognition  Tutor  attempts  to  fill  a  gap  that 
exists  in  most  VACR  (Visual  Aircraft  Recogni¬ 
tion)  training  programs.  The  tutor  uses  the 
WEFT  (Wings,  Engine,  Fuselage,  Tail)  theory  to 
teach  aircraft  recognition.  Because  the  tutor  is 
designed  to  identify  the  soldiers ’s  current  ability 
and  teach  at  a  level  appropriate  to  that  ability,  it 
is  useful  for  introducing  VACR  to  new  soldiers 
as  well  as  providing  refresher  training  to  more 
advanced  soldiers. 

In  order  to  make  the  program  simple  and  inter¬ 
esting  to  use,  the  interface  was  kept  very  basic. 

In  addition,  a  game  mode  was  incorporated  in 
order  to  encourage  use  of  the  program.  The  best 
training  tools  are  of  no  value  if  they  are  not  used. 

Comments  on  tlte  design  of  the  tutor  system,  as 
well  as  any  suggestions,  are  solicited.  A  sugges- 
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tion  forni  is  included  as  Appendix  C.  This  fonn 
can  also  be  used  to  report  any  bugs  found  in  Uie 
system. 

1 . 2  WEFT  Theory 

The  WEFT  (Wings,  Engine,  Fuselage,  Tail) 
theory  is  currently  believed  to  be  the  best 
method  for  teaching  VACR  (Visual  Aircraft 
Recognition).  This  theory  is  described  in  detail 
in  FM  44-30,  dated  October  1986.  The  Aircraft 
Recognition  Tutor  uses  WEFT  theory  as  the 
basis  from  which  to  teach  VACR. 

According  to  FM  44-30,  all  aircraft  are  com¬ 
posed  of  the  same  basic  elements:  wings  to 
provide  lift,  an  engine  to  provide  motive  power, 
a  fuselage  to  carry  the  payload  and  controls,  and 
a  tail  assembly  which  usually  serves  the  puipose 
of  controlling  the  direction  of  flight.  These 
elements  differ  in  their  shape,  size,  number,  and 
position.  It  is  these  basic  elements  that  distin- 
quish  one  aircraft  type  from  another.  Detailed 
parts  cannot  be  used  as  the  only  aid  to  aircraft 
recognition,  mainly  because  of  the  distances  at 
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which  recognition  should  occur.  The  individual 
components  can  be  isolated  for  descriptions  and 
studied  as  separate  recognition  features.  It  is  tlie 
composite  of  these  features  that  must  be  learned 
in  order  to  recognize  and  identify  an  aircraft. 

Tor  a  detailed  discussion  of  WEFT  theory,  and 
the  method  used  for  describing  the  basic  ele¬ 
ments,  see  FM  44-30  Chapter  3. 
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2  Installing  the  Tutor 

2.1  System  Requirements 

The  Aircraft  Recognition  Tutor  requires  a  PC 
compatible  computer  with  the  following  fea¬ 
tures: 

DOS  2. 1  (or  higher) 

512KRAM 

Hard  Disk  (system  uses  1MB) 

360K  5-1/4"  Floppy  Disk 
CGA  Graphics  Adapter  (or  higher) 

2.2  Running  the  Install 
Program 

To  install  the  Aircraft  Recognition  Tutor  on  your 
system: 

1 .  Turn  on  your  PC. 

2.  Type  C:  and  press  Enter. 

3.  Insert  DISK  1  in  drive  A: 

4.  Type  A:INSTALL  and  press  Enter. 

5.  Follow  tlie  inshuctions  on  your  screen. 

The  Aircraft  Recognition  Tutor  is  copy  pro¬ 
tected.  It  may  only  be  installed  on  a  single 
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system.  To  move  tlie  program  from  one  system 
to  another  repeat  the  install  sequence  on  page  9, 
however  for  step  4,  do  the  following; 

4.  Type  AiUNSTALL  and  press  Enter. 

The  Install  and  Unstall  programs  require  that  the 
disks  NOT  have  write  protect  tabs  on  them.  If 
you  receive  a  "Write  Protect  Error"  while  using 
one  of  diese  programs,  remove  the  write  protect 
tab,  reinsert  tlie  disk,  and  press  "R"  to  retry. 

To  start  the  tutor  once  it  has  been  installed,  make 
sure  that  you  are  in  the  C:\ARTUTOR  directory 
and  type  ART  and  press  Enter. 
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3  Using  the  Tutor 

3,1  General  Information 

The  Aircraft  Recogniton  Tutor  has  a  simple  user 
interface.  Few  keys  are  required  to  use  the 
system.  Normally,  when  a  screen  is  displayed  to 
the  user,  the  system  will  wait  for  the  user  to 
press  any  key  before  continuing.  When  a  menu 
appears,  the  system  will  wait  for  the  user  to 
select  a  menu  item  and  press  Enter. 

The  following  keys  have  a  special  meaning  in 
the  Aircraft  Recognition  Tutor: 

Esc  Quit  what  you  are  doing.  This 

nonnally  brings  you  to  a  Menu  one 
level  higher  than  where  you  were. 

H  Provides  context  sensitive  help. 

A  bi  the  game  mode,  Uiis  is  player  1  ’s 
button. 

L  In  the  game  mode,  this  is  player  2 ’s 
button. 

Enter  When  no  menu  exists,  this  causes 
the  program  to  continue  after  it  has 
paused.  When  a  menu  exists,  this 
selects  the  highlighted  item. 
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■|>  Ill  a  menu,  this  liighlights  the 
item  above  tlie  one  currently 
higliliglited. 

I  In  a  menu,  this  highlights  the  item 
below  the  one  currently  highlighted. 

PgUp  Li  a  menu,  this  causes  the  previous 
1 0  selections  to  be  displayed  in  tlie 
menu. 

PgDn  In  a  menu,  tliis  causes  the  next  10 
selections  to  be  displayed  in  the 
menu. 

In  the  expert  level,  scrolls  through 
the  WEFT  features  in  reverse  order. 

+  in  the  expert  level,  scrolls  through 
tlie  WEFT  features  in  forward  order. 

C  When  a  Tutor  session  is  completed, 
this  continues  with  the  next  session. 

In  the  Setup/Utiiity  Mode,  some  of  these  keys 
have  different  meanings.  See  Chapter  5  for 
details. 

3 . 2  Being  Diagnosed 

When  a  new  student  is  encountered  by  the  Air¬ 
craft  Recognition  Tutor  (based  on  tlie  User  ID), 
the  system  first  asks  for  the  student’s  name,  and 
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then  attempts  to  diagnose  the  student’s  level  of 
proficiency  at  visual  aircraft  recognition. 

The  student  is  presented  with  10  aircraft,  one  at  a 
time,  that  are  examples  of  specific  WEFT  fea¬ 
tures.  The  student  is  also  given  a  menu  that 
corresponds  to  tlie  WEFT  feature  that  the  aircraft 
is  exemplilying.  The  student  is  expected  to 
identify  the  WEFT  feature  that  coiresponds  to 
the  menu  title  and  is  visible  on  the  aircraft,  and 
tlien  select  it  using  tlie  menu. 

If  the  student  incorrectly  responds  to  2  or  more 
of  tl’e  10,  they  will  begin  the  tutor  at  the  Novice 
le el.  If  they  miss  1  or  less,  they  will  begin  at 
the  Litermediate  Level.  Students  are  not  allowed 
to  begin  at  the  Expert  Level. 

3.3  The  Three  Levels 

The  Aircraft  Recognition  Tutor  allows  students 
to  be  in  one  of  three  levels:  Novice,  Intermedi¬ 
ate,  and  Expert. 

The  Novice  Level  is  for  students  that  are  new  to 
VACR  and  have  not  mastered  WEFT  theory. 

The  Intermediate  Level  is  designed  for  students 
that  have  a  solid  background  in  recognizing 
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WEFT  features.  In  this  level,  students  learn  to 
identify  specific  aircraft  visually  based  on  their 
WEFT  components. 

In  the  Expert  Level,  students  must  identify  air¬ 
craft  based  solely  on  a  WEFT  description  of  the 
lircraft.  No  visual  image  of  the  aircraft  is  pro¬ 
vided.  This  level  provides  a  real  challenge  to 
even  the  best  VACR  students. 

3 . 4  The  Teach  Mode 

The  Teach  Mode  is  available  in  the  Novice  and 
Intennediate  Levels.  In  the  Novice  Level,  stu¬ 
dents  are  taught  WEFT  features.  Intermediate 
Level  students  are  taught  WEFT  features  visible 
on  specific  aircraft. 

The  Aircraft  Recognition  Tutor  displays  an 
aircraft  in  Uie  left  window  of  the  binoculars. 
Along  with  that  aircraft  is  a  description  of  a 
WEFT  feature  of  tlie  aircraft.  The  student 
should  study  Uie  feature,  and  press  Enter  when 
done. 

In  the  Novice  Level,  a  new  aircraftAVEFT  fea¬ 
ture  will  be  shown,  until  the  tutor  has  shown  all 
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of  the  WEFT  features. 

In  the  Intermediate  Level,  a  single  aircraft  is 
shown,  and  the  tutor  displays  all  of  the  WEFT 
features  of  that  aircraft  before  continuing  with 
anotlier  aircraft.  This  is  repeated  until  all  of  the 
aircraft  that  have  been  selected  for  the  system  to 
teach  have  been  shown. 

3.5  The  Review  Mode 

The  Review  Mode  randomly  but  completely 
presents  each  WEFT  feature  (Novice  Level)  or 
each  aircraft  (Intermediate  and  Expert  Levels), 
asks  the  student  to  identify  the  WEFF  feature  or 
aircraft,  and  takes  action  based  on  the  student’s 
response. 

During  a  review,  three  possible  conditions  can 
exist  when  a  student  attempts  to  identify  a 
WEFT  feature  or  aircraft: 

( 1 )  the  student  may  respond  correctly, 

(2)  the  student  may  respond  witli  an 
anticipated  but  incorrect  answer. 

(3)  the  student  may  respond  with  an 
unanticipated,  incorrect  answer. 
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Each  of  these  conditions  is  handled  differently 
by  the  tutor  system. 

In  case  (1),  the  tutor  system  will  recognize  the 
student  for  the  conect  answer,  and  present  an¬ 
other  aircraft  to  the  student. 

In  case  (2),  the  student  is  presented  with  both  the 
aircraft  being  reviewed  and  the  aircraft  that  the 
student  selected  from  the  menu.  Both  are  identi¬ 
fied  to  the  student,  and  the  system  performs  a 
comparison  of  the  two  for  the  student  so  that  the 
differences  are  reinforced  in  the  student’s  mind. 
The  student  will  be  required  to  demonstrate  iden¬ 
tification  of  the  missed  aircraft  again  some  time 
later  in  the  session.  The  tutor  then  continues 
with  another  aircraft. 

In  case  (3),  the  aircraft  is  identified  to  the  stu¬ 
dent,  and  the  student  is  asked  to  identify  specific 
features  of  tlie  aircraft.  The  tutor  session  then 
continues  as  in  ( 1 )  and  (2).  The  student  may 
have  to  identify  a  missed  aircraft  several  times 
before  the  system  is  satisfied  of  the  student’s 
knowledge  of  that  item. 
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3 .  6  The  Test  Mode 

The  Test  Mode  is  available  in  tlie  Inlennediate 
and  Expert  Levels.  Testing  consists  of  present¬ 
ing  the  student  with  each  aircraft,  asking  the 
student  to  identify  the  aircraft,  and  maintaining  a 
record  of  the  student’s  performance. 

A  student  must  perform  satisfactorily  on  the  test 
in  order  to  advance  to  the  next  level.  In  addition, 
poor  performance  may  cause  the  student  to 
revert  to  a  lower  level  or  mode. 

A  student  at  the  Expert  Level  that  receives  a 
score  of  100%  will  be  deleted  from  the  system 
and  added  to  tlie  Hall  of  Fame. 
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4  Playing  the  Game 

4 . 1  One  Player 

The  One-Player  Game  pits  a  student  against  the 
tutor  system  in  a  race  to  identify  aircraft.  The 
system  opponent  is  based  on  an  image  recogni¬ 
tion  program  tiiat  uses  WEFf  features  to  identify 
tlie  aircraft.  No  unfair  knowledge  of  the  aircraft 
is  available  to  tlie  system  opponent. 

The  player  does  not  have  to  be  enrolled  in  the 
tutor  system  in  order  to  play  the  game,  and  per¬ 
formance  in  the  game  is  not  maintained  in  the 
student  database. 

The  game  is  played  as  follows:  An  aircraft 
appears  in  the  binoculars,  and  when  the  player 
recognizes  tlie  aircraft  they  press  their  “button”. 
The  "button"  for  the  One-Player  game  is  tlie  ‘A’ 
key  on  the  keyboard.  The  player  is  then  given  a 
chance  to  identify  the  aircraft  in  a  menu  that  will 
appear.  A  limited  amount  of  time  is  allowed  for 
the  player  to  recognize  the  aircraft.  Also,  the 
system  opponent  may  recognize  the  aircraft  first, 
and  will  be  allowed  to  identify  it. 
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A  total  of  25  aircraft  comprise  tlie  game.  Points 
are  awarded  for  a  correct  response,  and  deducted 
for  an  incorrect  response.  After  all  25  aircraft 
have  been  shown,  the  player  with  the  highest 
score  is  the  winner. 

4 . 2  Two  Players 

The  Two-Player  game  is  played  just  like  the 
One-Player  game,  but  no  system  opponent  ex¬ 
ists.  Instead,  two  players  compete  against  each 
other.  The  “button”  for  Player  1  is  the  same  as 
in  the  One-Player  game,  and  the  “button”  for 
Player  2  is  the  ‘L’  key. 

Again,  the  players  need  not  be  enrolled  in  the 
tutor  system  in  order  to  play  tlie  game. 
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5  Using  the  Utilities 

5.1  Password  Protection 

The  Setup/Utility  Mode  of  the  Aircraft  Recogni¬ 
tion  Tutor  is  intended  to  be  used  by  the  System 
Administrator  (S-3).  Because  of  this,  access  to 
this  mode  is  provided  only  with  a  password.  The 
password  is  included  in  this  manual  in  an  enve¬ 
lope  attached  to  the  back  cover.  If  this  password 
is  lost,  a  new  one  can  be  requested  by  using  the 
Suggestion  Form  located  in  Appendix  C. 

When  the  Setup/L^tility  Mode  is  selected  from 
the  Main  Menu,  the  user  is  asked  to  enter  thei/ 
password.  Once  the  password  in  entered  cor¬ 
rectly,  the  Setup/Utility  Menu  is  presented.  If 
the  password  is  entered  incorrectly,  the  system 
returns  to  the  Main  Menu. 

5.2  Choosing  the  Aircraft 

The  Select  Aircraft  Utility  allows  the  System 
Administrator  to  select  the  aircraft  tliat  will  be 
taught  by  the  system.  Initially,  this  includes  all 
of  the  aircraft  listed  Appendix  A  of  this  manual. 
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To  modify  this  list,  use  the  menu  to  select  the 
aircraft  that  you  want  to  include  in  the  system. 
This  aircraft  will  be  added  to  the  list  and  you 
will  be  presented  with  an  updated  menu  of  air¬ 
craft.  Continue  the  selection  process  until  all  of 
the  aircraft  that  you  want  to  be  taught  by  the 
system  have  been  selected.  Press  ‘Esc’  when 
you  are  finished. 

Caution:  Once  you  start  tliis  utility,  the  list  of 
aircraft  used  by  the  system  is  erased.  You  must 
select  ALL  of  the  aircraft  that  you  want  included 
in  the  system. 

5.3  Adding  or  Modifying 
Aircraft 

Adding  or  modifying  aircraft  is  a  complex  proce¬ 
dure.  Once  you  begin  defining  an  aircraft,  you 
must  complete  all  of  the  steps  listed  below.  An 
aircraft  definition  consists  of  tlnee  views:  front, 
side,  and  bottom. 

To  add  or  modify  an  aircraft: 

1 .  Select  “Add/Modify  Aircraft”  from  the 
SetupAJtility  Menu. 
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2.  When  prompted,  type  in  tlie  nomencla¬ 
ture  and  name  of  tlie  aircraft  as  you 
want  it  to  appear  (or  as  it  already  ap¬ 
pears,  if  you  want  to  modify  the  aircraft 
definition)  in  the  Aircraft  Menu.  This 
name  will  appear  for  a  brief  moment  in 
the  lower  left  portion  of  the  screen. 

3.  If  the  aircraft  ihat  you  named  already 
exists,  it  will  be  drawn  on  the  screen  in 
die  upper  left  corner,  and  then  translated 
(2  times  larger)  on  die  right  side  of  die 
screen. 

4.  Position  the  cursor  inside  the  circular 
area,  using  the  arrow  keys.  This  circle 
corresponds  to  die  binocular  window. 

5.  Draw  widiin  the  circle  by  pressing  the 
space  bar  when  the  cursor  is  positioned 
where  you  want  to  draw.  You  can  erase 
in  the  same  manner. 

6.  When  you  are  finished  drawing  the  air¬ 
craft,  press  'Enter'. 

7.  The  aircraft  will  then  be  reduced  and 
drawn  in  the  upper  left  comer  of  the 
screen. 

8.  A  menu  will  appear.  This  menu  will 
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contain  selections  for  a  particular  WEFT 
feature.  Highlight  the  appropriate  fea¬ 
ture  visible  in  this  view  of  the  aircraft 
and  press  'Enter'.  If  the  WEFT  feature  is 
not  visible  in  this  view  of  the  aircraft, 
press  'Esc'. 

9.  Repeat  step  8  for  each  of  the  WEFT  fea¬ 
ture  menus. 

10.  Repeat  steps  3-8  for  the  other  two  views 
of  the  aircraft. 

The  aircraft  that  you  defined  is  not  automatically 
added  to  the  list  of  aircraft  taught  by  tlie  system. 
To  include  new  aircraft,  choose  tlie  "Select  Air¬ 
craft"  option  from  the  Setup/Utility  Menu. 

If  you  make  an  error  in  defining  an  aircraft, 
simply  modify  the  definition  using  the  same 
metliod  described  above. 

Aircraft  are  identified  by  tlie  tutor  system  based 
on  the  first  four  characters  in  the  name.  To 
define  a  new  aircraft  with  a  similar  name  as  an 
existing  one,  insure  tliat  the  first  four  characters 
of  the  name  you  enter  in  step  2  are  unique. 
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5.4  Getting  a  Student 
Report 

Reports  are  available  for  each  student  that  uses 
the  tutor  system.  To  get  a  report  on  a  student; 

1 .  Select  “Student  Report”  from  the  Setup/ 
Utility  Menu. 

2.  Select  tlie  student  that  you  want  a  report 
on  based  on  their  User  ID  from  the 
menu  shown. 

3.  Repeat  for  other  students  as  desired. 
Press  ‘Esc’  when  you  are  finished  with 
tliis  utility. 

The  Student  Report  provides  the  following  infor¬ 
mation  about  a  student; 

1 .  The  Student’s  User  ID. 

2.  The  Student’s  Name. 

3.  The  current  Mode  the  student  is  in. 

4.  The  current  Level  the  student  is  at, 

5.  The  last  test  score  tlie  student  received. 

5.5  Deleting  a  Student 

Students  may  be  deleted  from  the  tutor  system  as 
necessary.  This  is  useful  when  a  student  PCS ’s 
and  no  longer  needs  to  be  maintained  in  the 
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student  database.  To  delete  a  student: 

1 .  Select  “Delete  Student”  from  the  Setup/ 
Utility  Menu. 

2.  Select  the  student  to  be  deleted  based  on 
their  User  ID  from  the  menu  shown. 

3.  The  student  will  be  deleted  and  an 
updated  menu  will  be  shown.  Repeat 
step  2  to  delete  additional  students. 

4.  Press  ‘Esc’  when  you  are  finished  with 
this  utility. 

When  a  student  receives  a  test  score  of  100%  in 
die  Test/Expert  Mode  of  the  tutor,  they  are  auto¬ 
matically  deleted  from  the  student  database  and 
added  to  the  Hall  of  Fame. 
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6  Getting  Help! 

6. 1  General  Help 

General  Help  for  the  Aircraft  Recognition  Tutor 
is  available  from  the  Main  Menu  by  selecting 
“Get  Help!”.  This  menu  selection  causes  the 
General  Help  Menu  to  appear.  Help  is  available 
from  tliis  menu  on  tlie  following  topics: 

1 .  About  Help!  -  Information  about  the 
Help  available  in  the  tutor  system. 

2.  Tutor  Help!  -  An  overview  of  the  tutor 
system. 

3.  Game  Help!  -  An  overview  of  the  1  or  2 
Player  Game. 

4.  Setup/Utility  Help!  -  A  description  of 
the  various  utilities  available  in  the 
system. 

6.2  Context  Sensitive 
Help 

Context  Sensitive  Help  is  available  from  almost 
anywhere  in  the  system  by  pressing  ‘H’  at  any 
time.  Context  Sensitive  Help  provides  detailed 
information  about  tlie  current  Mode/Level  that 
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tlie  user  was  in  at  the  time  of  the  Help  request. 

If  pressing  the  ‘H’  key  does  not  bring  up  a  Help 
screen,  insure  that  the  CAPS  LOCK  key  is  up 
and  try  again. 
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List  of  Aircraft  in  the 
System 


Appendix  A 


The  following  aircraft  are 
craft  Recognition  Tutor: 


A-4  Skyhawk 

A-6  Intruder 

A-7  Corsair  II 

A- 1 OA  Thunderbolt  II 

Alpha  Jet 

AM-X 

AV-8  Harrier 

Buccaneer 

Draken 

F-4  Phantom 

F-5  Freedom  Fighter 

F- 14  Tomcat 

F- 15  Eagle 

F-16  Fighting  Falcon 

F/A-18  Honiet 

F-20  Tigershark 

F-86  Sabrejet 


included  in  the  Air- 


F-100  Super  Sabre 

F-104  Starfighter 

F-111 

Fantan  A 

G.91Y 

Caleb 

Hawk 

Hunter 

Jaguar 

Lightning 

MiG- 17  Fresco 

MiG- 19  Farmer 

MiG-21  Fishbed 

MiG -25  Foxbat 

MiG-27  Flogger  D 

MiG-29  Fulcrum 

Mirage  1II/5 
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Mirage  FI 
Su-7B  Fitter  A 
Su- 17,20,22  Fitter 
Su-24  Fencer 
Su-25  Frogfoot 
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Super  Etendard 
Tornado 
Viggen  AJ-37 
Yak-28  Brewer 
Yak-36  Forger 
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Appendix  C 

Suggestion  Form 

Maitto:  CTI  Lcrry  W.  CvT^II  EM^ab  Cai^ll#NFS.CS.NA  VY.MIL 

SMr22« 

Naval  Poatgraduat*  School 
Mottt*i*>.CA  93940 
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Index 


A  key 

11 

Keys 

11 

ADA 

4 

L  key 

11 

Add 

21 

Level 

13,14,15.17,24,26 

Aircraft 

4.5,6,7,9.11, 

Main 

20,26 

12,13,21,28 

Menu 

13,20.21,26 

Artificial  Intelligence  4 

Mode 

12,15,17,24,25,26 

Binoculars 

14,18,21 

Modify 

21 

Bugs 

7,32 

Novice 

13,14,15 

Button 

18,19 

Password 

20 

C  key 

12 

PgDn  key 

12 

Caps  Lock 

27 

PgUp  key 

12 

CGA 

5,9 

Report 

24 

Coninients 

32 

Requirements  9 

Computer 

9 

Review 

15 

Computer  Science 

4 

Select 

20,23 

Context  Sensitive 

26 

Setup 

12.20.21,23.24.25.26 

Copy  Protection 

9 

SHORAD 

5 

Database 

18,25 

Student 

18,24.25 

Delete 

25 

Suggestions  20,32 

Diagnose 

12 

System  Administrator  20 

EGA 

5 

System  Opponent  18,19 

EMail 

32 

Teach 

14 

Enter  key 

11.14,21 

Tc.st 

17,24,25 

Esc  key  11.21.23,23,24,25 

Thesis 

4 

Expert  13.14.15.17,25 

Tutor 

4.6,7.9.11,12.13.26 

FM  44-30 

7,8 

Uiistall 

.0 

Game 

6,18.19,26 

User  ID 

12.24,25 

Hkey 

11,26,27 

Utility 

12,20,21,23,24,25,26 

Hall  of  Fame 

17,25 

VACR 

6,7.13.14 

Help 

26,27 

VGA 

5 

bistiill 

9 

WEFT 

6,7.8,13.14.15.18,23 

Interface 

Intermediate 

11 

13,14.15.17 

Zenitli 

4 
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Notes 
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APPENDIX  C  -  AIRCRAFT  IMAGES 
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A-lOA  Thunderbolt  n 


Alpha  Jet 
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F-4  Phantom 


F-5  Freedom  Fighter 


F-14  Tomcat 


F-15  Eagle 


F-20  Tigershatk 


F-lOO  Super  Sabre 


154 


F-104  Starfighter 
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Hawk 


Hunter 


Lightning 


I 

I 
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MiG-21  Fishbed 
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MiG-27  Flogger  D 


MiG-29  Fulcrum 


Mirage  111/5 


Su-7B  Fitter  A 
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Super  Etendard 


Viggen  AJ-37 
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